OFFSET
0,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000 (terms 0..1000 from Harry J. Smith)
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
AUTHOR
Amarnath Murthy, Apr 22 2001
EXTENSIONS
More terms from Patrick De Geest, May 29 2001
STATUS
approved