OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1581
EXAMPLE
p(271)=1741: 1741,1747,1753,1759 are consecutive primes,1747=1741+6,1753=1741+12,1759=1741+18
MATHEMATICA
p[n_]:=Prime[n]; Select[Range[15000], p[ #+1]-p[ # ]==p[ #+2]-p[ #+1]==p[ #+3]-p[ #+2]==6&] - Zak Seidov, Mar 05 2006
PrimePi[#[[1]]]&/@Select[Partition[Prime[Range[11000]], 4, 1], Differences[#]=={6, 6, 6}&] (* Harvey P. Dale, Oct 28 2023 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Pierre CAMI, Dec 09 2003
EXTENSIONS
Corrected and extended by Zak Seidov, Mar 05 2006
STATUS
approved