OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..228(all terms up to 5 million)
MATHEMATICA
Select[Range[720, 2000000, 10], PrimeQ[Prime[ # ]+# ]&&PrimeQ[Prime[ # ]-# ]&&PrimeQ[Prime[ # ]+2# ]&&PrimeQ[Prime[ # ]-2# ]&]
Select[Range[262000], AllTrue[Prime[#]+{#, -#, 2#, -2#}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 02 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Sep 10 2005
STATUS
approved