This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A137292 #5 Mar 31 2012 14:39:55 %S A137292 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 A137292 45,48,49,51,52,54,56,58,59,62,63,66,67,69,71,72,73,76,77,80,82,83,86, %U A137292 87,90,91,94,96,97,99,102,103,105,108,111,114,115,119,121,122,124,128 %N A137292 Limiting sequence when we start with the positive integers and at step n >= 1 delete the term at position n + digitsum(a(n)). %e A137292 First few steps are: %e A137292 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,... %e A137292 n = 1; delete term at position 1+digitsum(1) = 2: 2; %e A137292 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,... %e A137292 n = 2; delete term at position 2+digitsum(3) = 5: 6; %e A137292 1,3,4,5,7,8,9,10,11,12,13,14,15,16,17,18,19,20,... %e A137292 n = 3; delete term at position 3+digitsum(4) = 7: 9; %e A137292 1,3,4,5,7,8,10,11,12,13,14,15,16,17,18,19,20,... %e A137292 n = 4; delete term at position 4+digitsum(5) = 9: 12; %e A137292 1,3,4,5,7,8,10,11,13,14,15,16,17,18,19,20,... %e A137292 n = 5; delete term at position 5+digitsum(7) = 12: 16; %e A137292 1,3,4,5,7,8,10,11,13,14,15,17,18,19,20,... %e A137292 n = 6; delete term at position 6+digitsum(8) = 14: 19; %e A137292 1,3,4,5,7,8,10,11,13,14,15,17,18,20,... %e A137292 n = 7; delete term at position 7+digitsum(10) = 8: 11; %e A137292 1,3,4,5,7,8,10,13,14,15,17,18,20,... %Y A137292 Cf. A000959 (lucky numbers), A138662. %K A137292 easy,nonn,base %O A137292 1,2 %A A137292 _Ctibor O. Zizka_, Mar 15 2008, Mar 17 2008 %E A137292 Edited, corrected and extended by _Klaus Brockhaus_, Mar 25 2008