OFFSET
1,1
COMMENTS
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 3 since prime(3 + 2) + 2 = 11 + 2 = 13 is prime, but prime (2 + 2) + 2 = 9 is not.
MATHEMATICA
p[n_]:=PrimeQ[Prime[n+2]+2]
n=0; Do[If[p[Prime[m]], n=n+1; Print[n, " ", Prime[m]]], {m, 1, 10000}]
Select[Prime[Range[400]], PrimeQ[Prime[#+2]+2]&] (* Harvey P. Dale, Feb 13 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Jan 28 2014
STATUS
approved