OFFSET
1,1
MATHEMATICA
lst = Table[n, {n, 100}]; f[m_] := (lst = Drop[ Insert[ lst, lst[[m]], Prime[m] + 1], {m, m}]); Do[ f[n], {n, 25}]; Take[lst, 70]; g[n_] := Block[{k = 1}, While[ lst[[k]] != n, k++ ]; k]; Table[ g[n], {n, 70}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet and Robert G. Wilson v, Nov 18 2004
STATUS
approved