OFFSET
1,2
MATHEMATICA
lst = Table[n, {n, 1000}]; f[m_] := (lst = Drop[ Insert[ lst, lst[[m]], Prime[m] + 1], {m, m}]); Do[ f[n], {n, 168}]; a = 0; b = {}; Do[c = lst[[n]]; If[c < a, AppendTo[b, c], a = c], {n, 500}]; Take[b, 61]
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet and Robert G. Wilson v, Nov 18 2004
STATUS
approved