A180083 Smallest k such that digit sum of k > previous term.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 19, 299, 3999999999999999999999999999999999
Offset: 1
Examples
8 is followed by 9 because 9 is the lowest number with a digit sum > 8. 9 is followed by 19 because 19 is the lowest number with a digit sum (1 + 9 = 10) > 9.
Crossrefs
Cf. A006050. - Robert G. Wilson v, Aug 15 2010
Programs
-
Mathematica
f[s_List] := Block[{k = prev = s[[ -1]]}, While[ prev >= Plus @@ IntegerDigits@ k, k++ ]; Append[s, k]]; Nest[ f, {0}, 11] (* Robert G. Wilson v, Aug 15 2010 *)
Extensions
a(13) from Robert G. Wilson v, Aug 15 2010
Comments