A084009 a(n) = n^2 concatenated with reverse(n^2) divided by 11.

0, 1, 4, 9, 151, 232, 333, 454, 586, 738, 9091, 11011, 13131, 15451, 17881, 20502, 23332, 26362, 29493, 32833, 36364, 40104, 44044, 48175, 52425, 56866, 61516, 66357, 71317, 76468, 81819, 87379, 931291, 990891, 1051501, 1114111, 1178811

Offset

0,3

Links

Table of n, a(n) for n=0..36.

Example

a(12) = 144441/11 = 13131.

Maple

a:=proc(n) local nn, s: nn:=convert(n^2, base, 10): s:=nops(nn): (10^s*n^2+add(nn[1+s-j]*10^(j-1), j=1..s))/11 end: seq(a(n), n=0..39); # Emeric Deutsch, Feb 25 2005

Mathematica

n2c[n_]:=Module[{idn2=IntegerDigits[n^2]}, FromDigits[Join[idn2, Reverse[ idn2]]]/11]; Array[n2c, 40, 0] (* Harvey P. Dale, May 27 2014 *)

Prog

(PARI) a(n) = my(d=digits(n^2)); eval(fromdigits(concat(d, Vecrev(d))))/11; \\ Michel Marcus, Sep 12 2017

Crossrefs

Cf. A084008, A084010.

Sequence in context: A061267 A061269 A061271 * A306739 A318616 A029738

Adjacent sequences: A084006 A084007 A084008 * A084010 A084011 A084012

Keyword

base,nonn

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 23 2003

Extensions

More terms from Emeric Deutsch, Feb 25 2005

Status

approved