A061226 a(n) = n^2 + (n^2 with digits reversed).
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
Examples
a(4) = 77 = 16 + 61; a(7) = 143 = 49 + 94.
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..10000 (terms 0..1000 from Harry J. Smith)
Programs
-
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 *)
-
PARI
{a(n) = n^2+fromdigits(Vecrev(digits(n^2)))} \\ Seiichi Manyama, Sep 24 2018
Extensions
More terms from Patrick De Geest, May 29 2001