OFFSET
1,1
COMMENTS
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 2 since 2 and prime(prime(2)) + 2 = prime(3) + 2 = 7 are both prime.
MATHEMATICA
n=0; Do[If[PrimeQ[Prime[Prime[Prime[k]]]+2], n=n+1; Print[n, " ", Prime[k]]], {k, 1, 1000}]
Select[Prime[Range[500]], PrimeQ[Prime[Prime[#]]+2]&] (* Harvey P. Dale, May 30 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Feb 05 2014
STATUS
approved