11 lines
168 B
Text
11 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];
|