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

Author

N. J. A. Sloane

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A002113, A014187, A014188.

Programs

Magma

[n^2: n in [0..600] | Intseq(n) eq Reverse(Intseq(n))]; // Vincenzo Librandi, 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 *)

Formula

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