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

1,3

Links

Pontus von Brömssen, Table of n, a(n) for n = 1..10000 (first 1100 terms from Vincenzo Librandi)

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