OFFSET
0,1
FORMULA
MATHEMATICA
NestList[#+IntegerReverse[#]&, 31, 30] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 23 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved