A100353 Inverse of A097104.

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

Offset

1,1

Links

Table of n, a(n) for n=1..67.

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: A084454 A127812 A072033 * A366397 A080508 A178141

Adjacent sequences: A100350 A100351 A100352 * A100354 A100355 A100356

Keyword

nonn

Author

Leroy Quet and Robert G. Wilson v, Nov 18 2004

Status

approved