OFFSET
1,1
COMMENTS
LINKS
Salvatore Di Guida, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[50], PrimeQ[#] && PrimeQ[# + 12] && PrimeQ[# + 24] &] (* G. C. Greubel, Jun 20 2017 *)
PROG
(PARI) forprime(p=1, 2999, isprime(p+12)&isprime(p+24)&print1(p", ")) \\ M. F. Hasler, May 19 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Salvatore Di Guida, May 19 2012
STATUS
approved