OFFSET
1,1
COMMENTS
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 19 with 19, prime(19) + 4 = 71 and prime(19) + 6 = 73 all prime.
MATHEMATICA
p[n_]:=p[n]=PrimeQ[Prime[n]+4]&&PrimeQ[Prime[n]+6]
n=0; Do[If[p[Prime[m]], n=n+1; Print[n, " ", Prime[m]]], {m, 1, 10000}]
Select[Prime[Range[1500]], AllTrue[Prime[#]+{4, 6}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Feb 21 2018 *)
PROG
(PARI) s=[]; forprime(p=2, 12500, if(isprime(prime(p)+4) && isprime(prime(p)+6), s=concat(s, p))); s \\ Colin Barker, Jan 26 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Jan 26 2014
STATUS
approved