A182483 a(n) is the least m such that A182482(m) = A001359(n), the n-th twin prime.

1, 2, 3, 5, 7, 10, 4, 17, 9, 23, 25, 15, 8, 11, 19, 20, 45, 47, 13, 29, 14, 24, 77, 87, 95, 50, 103, 107, 22, 27, 137, 46, 143, 21, 34, 43, 175, 59, 91, 48, 41, 71, 215, 31, 44, 119, 121, 247, 62, 67, 54, 139, 283, 287, 149, 39, 313, 161, 65, 37, 169, 347, 116

Offset

2,2

Comments

a(n) exists for every n>=2.

Links

Ray Chandler, Table of n, a(n) for n = 2..10001

Mathematica

t = Table[k = 0; While[p = 6*k*n - 1; ! (PrimeQ[p] && PrimeQ[p + 2]), k++]; p, {n, 1000}]; tp = Select[Prime[Range[1000]], PrimeQ[# + 2] &]; t2 = {}; found = True; n = 2; While[found, pos = Position[t, tp[[n]], 1, 1]; If[pos == {}, found = False, AppendTo[t2, pos[[1, 1]]]; n++]]; t2 (* T. D. Noe, May 02 2012 *)

Crossrefs

Cf. A182481, A182482, A001359, A006512, A014574, A001097, A077800, A002822.

Sequence in context: A265249 A133451 A214331 * A308818 A323013 A163975

Adjacent sequences: A182480 A182481 A182482 * A182484 A182485 A182486

Keyword

nonn

Author

Vladimir Shevelev, May 01 2012

Status

approved