A119618 Inverse permutation to sequence A114792 (if sequence A114792 is indeed a permutation of the positive integers).

1, 2, 4, 3, 6, 5, 9, 7, 12, 8, 11, 10, 16, 13, 19, 14, 15, 18, 17, 25, 21, 20, 24, 22, 27, 23, 26, 32, 28, 30, 34, 31, 40, 37, 29, 35, 33, 36, 42, 38, 39, 44, 43, 48, 41, 47, 51, 49, 56, 45, 46, 50, 59, 53, 54, 52, 55, 58, 57, 63, 62, 68, 64, 60, 80, 66, 61, 69, 74, 67, 65, 70

Offset

1,2

Comments

Sequence is a permutation of the positive integers if the number of twin prime pairs is infinite.

Links

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

Mathematica

f[n_] := Block[{c = (Prime[n + 2] - Prime[n + 1])/2, d = 0, k = 1}, While[d < c, k++; If[ !MemberQ[lst, k], d++ ]]; AppendTo[lst, k]]; lst = {1}; Do[ f[n], {n, 2, 80}]; Table[Position[lst, n], {n, 72}] // Flatten (* Robert G. Wilson v *)

Crossrefs

Cf. A114792.

Sequence in context: A246682 A143691 A129767 * A113321 A271647 A232643

Adjacent sequences: A119615 A119616 A119617 * A119619 A119620 A119621

Keyword

nonn

Author

Leroy Quet, Jun 06 2006

Extensions

More terms from Robert G. Wilson v, Jun 07 2006

Status

approved