OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
For p=11, 11+18=29, 11+36=47, 11+72=83; p=431, 431+18=449, 431+36=467, 431+72=503.
MATHEMATICA
Select[Prime[Range[5000]], PrimeQ[# + 18] && PrimeQ[# + 36] && PrimeQ[# + 72]&] (* Vincenzo Librandi, Apr 10 2013 *)
Select[Prime[Range[4000]], AllTrue[#+{18, 36, 72}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 08 2016 *)
PROG
(Magma) [ p: p in PrimesUpTo(100000) | IsPrime(p) and IsPrime(p+18) and IsPrime(p+36) and IsPrime(p+72)]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Mar 08 2010
STATUS
approved