OFFSET
1,5
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Transpose[NestList[Join[Rest[#], {Total[FromDigits/@(Reverse/@ (IntegerDigits/@#))]}]&, {1, 1, 1, 1}, 30]][[1]] (* Harvey P. Dale, May 02 2012 *)
CROSSREFS
KEYWORD
easy,base,nonn
AUTHOR
Felice Russo, Sep 11 2002
EXTENSIONS
More terms from David Garber, Oct 23 2002
STATUS
approved