OFFSET
1,1
LINKS
Rick L. Shepherd, Table of n, a(n) for n = 1..10000
MATHEMATICA
pQ[n_]:=And@@PrimeQ[{n-36, n-6, n+6, n+36}]; Select[Prime[Range[10, 3000]], pQ] (* Harvey P. Dale, Feb 02 2011 *)
Select[Prime[Range[10, 3000]], AllTrue[#+{-36, -6, 6, 36}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 05 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Jun 21 2008
STATUS
approved