|
Search: id:A100353
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
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
|
Cf. A097104, A100352.
Sequence in context: A055182 A084454 A127812 this_sequence A080508 A063987 A010126
Adjacent sequences: A100350 A100351 A100352 this_sequence A100354 A100355 A100356
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 18 2004
|
|
|
Search completed in 0.002 seconds
|
