OFFSET
1,1
COMMENTS
MATHEMATICA
tiraQ[n_]:=Rest[Boole[PalindromeQ/@NestList[#+IntegerReverse[#]&, n, 10]]]=={0, 0, 0, 0, 0, 0, 0, 0, 0, 1}; Select[Range[12000], tiraQ] (* Harvey P. Dale, May 11 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved