|
|
|
|
4, 1, 2, 3, 400, 8, 5, 6, 12, 7, 69, 16, 9, 10, 21, 11, 61, 27, 13, 14, 31, 15, 92, 38, 17, 347, 18, 43, 19, 20, 47, 142, 22, 53, 23, 163, 24, 25, 14006, 26, 65, 720, 28, 29, 3310, 30, 79, 4087, 32, 85, 33, 268, 34, 35, 1103, 36, 97, 37, 324, 103, 39, 40, 110, 41, 1405, 42, 117
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|