login
Limiting sequence when we start with the positive integers and at step n >= 1 delete the term at position n + digitsum(a(n)).
10

%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