OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[20000], (PrimeQ[6#+5]&&Differences[NestList[ NextPrime[ #]&, 6 #+5, 3]] =={6, 6, 6})||(PrimeQ[6#+1]&&Differences[NestList[NextPrime[#]&, 6 #+1, 3]]=={6, 6, 6})&] (* Harvey P. Dale, Sep 23 2016 *)
PROG
(PARI) p=2; q=3; r=5; forprime(s=7, 1e5, if(s-p==18&&s-q==12&&s-r==6, print1(p\6", ")); p=q; q=r; r=s) \\ Charles R Greathouse IV, Dec 27 2011
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Pierre CAMI, Dec 09 2003
EXTENSIONS
a(19) from Charles R Greathouse IV, Dec 27 2011
STATUS
approved