OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..53
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
Amarnath Murthy, May 06 2002
EXTENSIONS
Edited by Jason Earls and Robert G. Wilson v, May 08 2002
Offset changed by and more terms from Giovanni Resta, Aug 28 2018
STATUS
approved