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

Author

Vladimir Shevelev, May 01 2012

Keywords

• nonn

Comments

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

Links

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

Crossrefs

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

Programs

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 *)