|
|
A014186
|
|
Squares of palindromes.
|
|
6
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|