OFFSET
1,1
COMMENTS
The number of steps starts at 0, so palindromes (cf. A002113) are excluded.
MATHEMATICA
lenQ[n_]:=Length[NestWhileList[#+FromDigits[Reverse[IntegerDigits[#]]]&, n, #!=FromDigits[Reverse[IntegerDigits[#]]]&, 1, 10]]==9; Select[Range[ 10000], lenQ] (* Harvey P. Dale, Aug 09 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Klaus Brockhaus, Oct 21 2001
EXTENSIONS
OFFSET changed from 0,1 to 1,1 by Harry J. Smith, Oct 14 2009
STATUS
approved