%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