OFFSET
0,1
MAPLE
S[1]:={seq(i, i=1..10000)}: for n from 2 to 10000 do S[n]:=S[n-1] minus {seq(S[n-1][n*i], i=1..nops(S[n-1])/n)} od: A:=convert(S[10000], list): seq(A[2*i], i=1..56); # Emeric Deutsch, Mar 01 2005
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 15 2004
EXTENSIONS
More terms from Emeric Deutsch, Mar 01 2005
STATUS
approved