OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
lenQ[n_]:= Length[NestWhileList[# + FromDigits[Reverse[IntegerDigits[#]]]&, n, #! = FromDigits[Reverse[IntegerDigits[#]]]&, 1, 31]] == 31; Select[Range[10000], lenQ] (* Vincenzo Librandi, Sep 24 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Klaus Brockhaus, Oct 30 2001
EXTENSIONS
Changed offset from 0 to 1 by Vincenzo Librandi, Sep 24 2013
STATUS
approved