A014186 Squares of palindromes.

0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 121, 484, 1089, 1936, 3025, 4356, 5929, 7744, 9801, 10201, 12321, 14641, 17161, 19881, 22801, 25921, 29241, 32761, 36481, 40804, 44944, 49284, 53824, 58564, 63504, 68644, 73984, 79524, 85264, 91809, 97969, 104329

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1099

Formula

a(n) = A002113(n)^2. - Michel Marcus, Jan 04 2018

Mathematica

f[n_, b_]:=Module[{i=IntegerDigits[n, b]}, i==Reverse[i]]; lst={}; Do[If[f[n, 10], AppendTo[lst, n]], {n, 0, 400}]; lst^2 (* Vincenzo Librandi Jan 04 2018 *)
Select[Range[0, 400], PalindromeQ]^2 (* Harvey P. Dale, Aug 28 2021 *)

Prog

(Magma) [n^2: n in [0..600] | Intseq(n) eq Reverse(Intseq(n))]; // Vincenzo Librandi, Jan 04 2018

Crossrefs

Cf. A002113, A014187, A014188.

Sequence in context: A096599 A016073 A115743 * A052062 A052046 A078255

Adjacent sequences: A014183 A014184 A014185 * A014187 A014188 A014189

Keyword

nonn,base

Author

N. J. A. Sloane.

Status

approved