A036227 a(1) = 20; a(n+1) = a(n) + sum of decimal digits of a(n).
20, 22, 26, 34, 41, 46, 56, 67, 80, 88, 104, 109, 119, 130, 134, 142, 149, 163, 173, 184, 197, 214, 221, 226, 236, 247, 260, 268, 284, 298, 317, 328, 341, 349, 365, 379, 398, 418, 431, 439, 455, 469, 488, 508, 521, 529, 545, 559, 578, 598, 620, 628, 644, 658
Offset: 1
Programs
-
Mathematica
NestList[#+Total[IntegerDigits[#]]&,20,60] (* Harvey P. Dale, May 11 2014 *)
Extensions
Edited by Charles R Greathouse IV, Aug 02 2010
Comments