Prime[#]&/@Transpose[Select[Partition[Prime[Range[300]], 2, 1], Last[#]- First[#] == 2&]][[2]] (* From _Harvey P. Dale, _, Nov 29 2011 *)
Prime[#]&/@Transpose[Select[Partition[Prime[Range[300]], 2, 1], Last[#]- First[#] == 2&]][[2]] (* From _Harvey P. Dale, _, Nov 29 2011 *)
_James A. Sellers (sellersj(AT)math.psu.edu), _, Sep 11 2000
editing
approved
Prime[#]&/@Transpose[Select[Partition[Prime[Range[300]], 2, 1], Last[#]- First[#] == 2&]][[2]] (* From Harvey P. Dale, Nov 29 2011 *)
approved
editing
Let p(i) =i-th prime, let twin(n) = (P,Q) be n-th pair of twin primes; sequence gives p(Q).
11, 17, 41, 67, 127, 191, 283, 367, 563, 599, 797, 877, 1087, 1171, 1217, 1447, 1523, 1741, 1847, 2081, 2351, 2909, 3019, 3299, 3761, 4153, 4421, 4567, 4787, 4943, 6229, 6323, 6361, 6661, 6863, 8117, 8233, 8389, 8527, 8761, 9319, 10009, 10457, 10589
1,1
The 3rd pair of twin primes is twin(3) = (11,13), so a(3) = p(13) = 41.
nonn
James A. Sellers (sellersj(AT)math.psu.edu), Sep 11 2000
approved