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[6*10^4]], 7, 1], PrimeQ[6 # + 1] && PrimeQ[6 # - 1] &]] (* Amiram Eldar, Jan 26 2020 after Giovanni Resta at A129311 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Apr 09 2007
STATUS
approved