%I #20 Sep 17 2019 16:08:06
%S 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,
%T 50,103,107,22,27,137,46,143,21,34,43,175,59,91,48,41,71,215,31,44,
%U 119,121,247,62,67,54,139,283,287,149,39,313,161,65,37,169,347,116
%N a(n) is the least m such that A182482(m) = A001359(n), the n-th twin prime.
%C a(n) exists for every n>=2.
%H Ray Chandler, <a href="/A182483/b182483.txt">Table of n, a(n) for n = 2..10001</a>
%t 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 *)
%Y Cf. A182481, A182482, A001359, A006512, A014574, A001097, A077800, A002822.
%K nonn
%O 2,2
%A _Vladimir Shevelev_, May 01 2012
|