|
%I #8 Nov 22 2021 10:08:00
%S 5,11,7,13,11,17,13,19,17,23,23,29,31,37,37,43,41,47,47,53,53,59,61,
%T 67,67,73,73,79,83,89,97,103,101,107,103,109,107,113,131,137,151,157,
%U 157,163,167,173,173,179,191,197,193,199,223,229,227,233,233,239,251,257
%N List of prime pairs of the form (p, p+6).
%C A023201 and A046117 interleaved. [From _R. J. Mathar_, Feb 19 2009]
%H Vincenzo Librandi, <a href="/A156274/b156274.txt">Table of n, a(n) for n = 1..1000</a>
%e For p=5, p+6=11, (5,11); p=7, p+6=13, (7,13); p=11, p+6=17, (11,17)
%t Flatten[Select[{#, # + 6}&/@Prime[Range[100]], PrimeQ[Last[#]]&]] (* _Vincenzo Librandi_, Apr 06 2013 *)
%K nonn,tabf
%O 1,1
%A _Vincenzo Librandi_, Feb 07 2009
|
