login
A061226
a(n) = n^2 + (n^2 with digits reversed).
3
0, 2, 8, 18, 77, 77, 99, 143, 110, 99, 101, 242, 585, 1130, 887, 747, 908, 1271, 747, 524, 404, 585, 968, 1454, 1251, 1151, 1352, 1656, 1271, 989, 909, 1130, 5225, 10890, 7667, 6446, 8217, 11000, 5885, 2772, 1661, 3542, 6435, 11330, 8327, 7227, 8228
OFFSET
0,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000 (terms 0..1000 from Harry J. Smith)
FORMULA
a(n) = A000290(n) + A002942(n).
EXAMPLE
a(4) = 77 = 16 + 61; a(7) = 143 = 49 + 94.
MAPLE
R:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||n):
a:= n-> (s-> s+R(s))(n^2):
seq(a(n), n=0..50); # Alois P. Heinz, Sep 24 2018
MATHEMATICA
nsr[n_]:=Module[{n2=n^2}, n2+FromDigits[Reverse[IntegerDigits[n2]]]]; Array[ nsr, 50, 0] (* Harvey P. Dale, Jul 23 2012 *)
PROG
(PARI) { for (n=0, 1000, x=n^2; r=0; while (x>0, d=x-10*(x\10); x\=10; r=r*10 + d); write("b061226.txt", n, " ", n^2 + r) ) } \\ Harry J. Smith, Jul 19 2009
(PARI) {a(n) = n^2+fromdigits(Vecrev(digits(n^2)))} \\ Seiichi Manyama, Sep 24 2018
CROSSREFS
KEYWORD
nonn,base,easy,look
AUTHOR
Amarnath Murthy, Apr 22 2001
EXTENSIONS
More terms from Patrick De Geest, May 29 2001
STATUS
approved