A119507 Members of A016052 whose digit sum is three.

3, 12, 21, 30, 111, 120, 201, 210, 1020, 1101, 1110, 2010, 10020, 10101, 10110, 11010, 20100, 100020, 100101, 100110, 101010, 110100, 200100, 300000, 1000101, 1000110, 1001010, 1010100, 1100100, 1200000, 2000010, 2100000, 10000020, 10000101

Offset: 1

Author

Zak Seidov and Robert G. Wilson v, May 27 2006

Keywords

• nonn
• base

Comments

A016052: a(n+1) = a(n) + sum of its digits, a(1) = 3.

Positions of these numbers in A016052: 1, 3, 5, 7, 15, 17, 25, 27, 85, 93, 95, 157, 589, 597, 599, 661, ...,.

Crossrefs

Cf. A016052.

Programs

Mathematica

lst = {}; a = 3; Do[ If[Plus @@ IntegerDigits@a == 3, AppendTo[lst, a]; Print[a]]; a = a + Plus @@ IntegerDigits@a, {n, 10^7}]; lst

Extensions

Edited by Charles R Greathouse IV, Aug 04 2010