OFFSET
1,1
COMMENTS
Conjecture: only 312722 primes are not in the sequence: 2, 3, ..., 198702899.
EXAMPLE
907 is in the sequence because with d = 150: 7, 157, 307, 457, 607, 757 are all primes.
MATHEMATICA
fQ[p_] := Module[{d = 1}, While[6*d < p && Union[PrimeQ[p - Range[6]*d]] != {True}, d++]; 6*d < p]; Select[Prime[Range[4, PrimePi[12119]]], fQ] (* T. D. Noe, Sep 07 2012 *)
PROG
(PARI) is(n)=my(t); forprime(p=2, n-20, if((n-p)%6==0 && isprime((t=(n-p)/6)+p) && isprime(2*t+p) && isprime(3*t+p) && isprime(4*t+p) && isprime(5*t+p) && isprime(n), return(1))); 0 \\ Charles R Greathouse IV, Sep 10 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Sep 07 2012
STATUS
approved