OFFSET
1,1
MATHEMATICA
lst = Range[1, 684, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Take[lst, {2, Length@lst, 2}] (* Robert G. Wilson v, May 12 2006 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 20 2004
EXTENSIONS
More terms from Robert G. Wilson v, May 12 2006
STATUS
approved