login
Members of A016052 whose digit sum is three.
0

%I #7 Mar 30 2012 17:31:18

%S 3,12,21,30,111,120,201,210,1020,1101,1110,2010,10020,10101,10110,

%T 11010,20100,100020,100101,100110,101010,110100,200100,300000,1000101,

%U 1000110,1001010,1010100,1100100,1200000,2000010,2100000,10000020,10000101

%N Members of A016052 whose digit sum is three.

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

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

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

%Y Cf. A016052.

%K nonn,base

%O 1,1

%A _Zak Seidov_ and _Robert G. Wilson v_, May 27 2006

%E Edited by _Charles R Greathouse IV_, Aug 04 2010