OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[1231*10^4], PalindromeQ[Total[(# + {0, 1, 2, 3})^2]] &] (* The program generates the first 4 terms of the sequence. To generate more, increase the Range constant, but the program will take a long time to run. *) (* Harvey P. Dale, Apr 18 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(6)-a(8) from Donovan Johnson, Aug 26 2012
a(9)-a(10) from Chai Wah Wu, Sep 06 2021
STATUS
approved