

A182483


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


3



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A193622 A265249 A214331 * A308818 A323013 A163975
Adjacent sequences: A182480 A182481 A182482 * A182484 A182485 A182486


KEYWORD

nonn


AUTHOR

Vladimir Shevelev, May 01 2012


STATUS

approved



