|
|
A070254
|
|
Perfect squares one more than a palindrome.
|
|
5
|
|
|
1, 4, 9, 100, 324, 576, 4225, 5776, 10000, 36864, 42025, 1000000, 3055504, 3640464, 5597956, 8803089, 32855824, 100000000, 360696064, 422919225, 10000000000, 30485858404, 30536863504, 32154945124, 59080108096, 86310801369, 304816618404, 1000000000000, 3490500050944
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Do[ If[a = IntegerDigits[n^2 - 1]; a == Reverse[a], Print[n^2]], {n, 1, 10^6}]
Select[Range[300000]^2, PalindromeQ[#-1]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 06 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|