OFFSET
1,1
COMMENTS
MATHEMATICA
lst = {}; a = 3; Do[ If[Plus @@ IntegerDigits@a == 3, AppendTo[lst, a]; Print[a]]; a = a + Plus @@ IntegerDigits@a, {n, 10^7}]; lst
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov and Robert G. Wilson v, May 27 2006
EXTENSIONS
Edited by Charles R Greathouse IV, Aug 04 2010
STATUS
approved