OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
PrimePi[Part[#, 1, 1] & /@ FactorInteger /@ Select[Times @@@ Partition[Prime[Range[3*10^4]], 5, 1], PrimeQ[6 # + 1] && PrimeQ[6 # - 1] &]] (* Amiram Eldar, Jan 26 2020 after Giovanni Resta at A129311 *)
PROG
(PARI) isok(k) = isprime(p=6*prime(k)*prime(k+1)*prime(k+2)*prime(k+3)*prime(k+4)-1) && isprime(p+2); \\ Michel Marcus, Sep 24 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Apr 09 2007
EXTENSIONS
More terms from Michel Marcus, Sep 24 2019
STATUS
approved