10 lines
168 B
Text
10 lines
168 B
Text
n=10^5;
|
|
Ludic={1};
|
|
seq=Range[2,n];
|
|
ClearAll[DoStep]
|
|
DoStep[seq:{f_,___}]:=Module[{out=seq},
|
|
AppendTo[Ludic,f];
|
|
out[[;;;;f]]=Sequence[];
|
|
out
|
|
]
|
|
Nest[DoStep,seq,2500];
|