%I #5 Mar 31 2012 14:39:55
%S 1,3,4,5,7,8,10,13,14,15,17,20,21,24,26,28,30,31,32,35,36,39,40,43,44,
%T 45,48,49,51,52,54,56,58,59,62,63,66,67,69,71,72,73,76,77,80,82,83,86,
%U 87,90,91,94,96,97,99,102,103,105,108,111,114,115,119,121,122,124,128
%N Limiting sequence when we start with the positive integers and at step n >= 1 delete the term at position n + digitsum(a(n)).
%e First few steps are:
%e 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,...
%e n = 1; delete term at position 1+digitsum(1) = 2: 2;
%e 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,...
%e n = 2; delete term at position 2+digitsum(3) = 5: 6;
%e 1,3,4,5,7,8,9,10,11,12,13,14,15,16,17,18,19,20,...
%e n = 3; delete term at position 3+digitsum(4) = 7: 9;
%e 1,3,4,5,7,8,10,11,12,13,14,15,16,17,18,19,20,...
%e n = 4; delete term at position 4+digitsum(5) = 9: 12;
%e 1,3,4,5,7,8,10,11,13,14,15,16,17,18,19,20,...
%e n = 5; delete term at position 5+digitsum(7) = 12: 16;
%e 1,3,4,5,7,8,10,11,13,14,15,17,18,19,20,...
%e n = 6; delete term at position 6+digitsum(8) = 14: 19;
%e 1,3,4,5,7,8,10,11,13,14,15,17,18,20,...
%e n = 7; delete term at position 7+digitsum(10) = 8: 11;
%e 1,3,4,5,7,8,10,13,14,15,17,18,20,...
%Y Cf. A000959 (lucky numbers), A138662.
%K easy,nonn,base
%O 1,2
%A _Ctibor O. Zizka_, Mar 15 2008, Mar 17 2008
%E Edited, corrected and extended by _Klaus Brockhaus_, Mar 25 2008