OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
A090258 = Select[Range[9, 10^5 - 1, 2], Union[PrimeQ[# - {0, 2, 6, 8}]] == {True} &] (* Alonso del Arte, Aug 12 2012 *)
Transpose[Select[Partition[Prime[Range[9500]], 4, 1], Differences[#]=={2, 4, 2}&]] [[4]] (* Harvey P. Dale, Nov 11 2013 *)
PROG
(PARI) quintpr(n) = { s=0; forprime(p=5, n, if(isprime(p+2) && isprime(p+6) && isprime(p+8), print1(p+8", "); ) ); print(); print(s+.0) }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Jan 24 2004
STATUS
approved