OFFSET
1,1
EXAMPLE
a(n)=0,1,2,3 correspond to {p,p+10} prime-pairs either
consecutive ones or those with various d-patterns like
as follows: a(n)=0 to cases like 139[10]149; a(n)=2 to
7[4,2,4]17 etc.; a(n)=3 to one case 3[2,2,4,2]13 and
a(n)=2 to cases like 31[6,4]37 or 43[4,6]53.
MATHEMATICA
cp[x_, y_] := Count[Table[PrimeQ[i], {i, x, y}], True] Do[s=Prime[n]; s1=Prime[n+1]; If[PrimeQ[s+d], k=k+1; Print[cp[s+1, s+d-1]]], {n, 1, 1000}]; k; d=10
PROG
(PARI) forprime(p=2, 1e5, if(isprime(p+10), print1(isprime(p+2)+isprime(p+4)+isprime(p+6)+isprime(p+8)", "))) \\ Charles R Greathouse IV, May 15 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 29 2003
STATUS
approved