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,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

Cf. A000290, A002942, A056964.

Sequence in context: A054358 A268658 A074128 * A134827 A222361 A134789

Adjacent sequences: A061223 A061224 A061225 * A061227 A061228 A061229

Keyword

nonn,base,easy,look

Author

Amarnath Murthy, Apr 22 2001

Extensions

More terms from Patrick De Geest, May 29 2001

Status

approved