OFFSET
1,1
COMMENTS
Conjecture: only 9198 primes are not in the sequence: 2, 3, ..., 2521081.
EXAMPLE
157 is in the sequence because with d=30: 127, 97, 67, 37, 7 are all primes.
MATHEMATICA
prms = 5; fQ[p_] := Module[{d = 1}, While[prms*d < p && Union[PrimeQ[p - Range[prms]*d]] != {True}, d++]; prms*d < p]; Select[Prime[Range[2, PrimePi[2411]]], fQ] (* T. D. Noe, Sep 08 2012 *)
PROG
(PARI) is(n)=my(t); forprime(p=2, n-16, if((n-p)%5==0 && isprime((t=(n-p)/5)+p) && isprime(2*t+p) && isprime(3*t+p) && isprime(4*t+p) && isprime(n), return(1))); 0 \\ Charles R Greathouse IV, Sep 10 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Sep 08 2012
STATUS
approved