OFFSET
0,1
COMMENTS
MATHEMATICA
Select[Range[270000], Position[NestList[#+IntegerReverse[#]&, #, 58], _?PalindromeQ] == {{59}}&] (* Harvey P. Dale, May 05 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, Oct 30 2001
STATUS
approved