|
Search: id:A119618
|
|
|
| A119618 |
|
Inverse permutation to sequence A114792 (if sequence A114792 is indeed a permutation of the positive integers). |
|
+0
2
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Sequence is a permutation of the positive integers if the number of twin prime pairs is infinite.
|
|
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: A114792 A113324 A129767 this_sequence A113321 A082560 A127202
Adjacent sequences: A119615 A119616 A119617 this_sequence A119619 A119620 A119621
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Jun 06 2006
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Jun 07 2006
|
|
|
Search completed in 0.002 seconds
|
