login
A216496
Primes that are not in A094383.
1
2, 3, 5, 7, 11, 13, 17, 19, 31, 37, 47, 61, 67, 71, 73, 89, 109, 137, 179, 211, 277, 337, 379, 499, 557
OFFSET
1,1
COMMENTS
Conjecture: a(25)=557 is the last term.
MATHEMATICA
prms = 3; fQ[p_] := Module[{d = 1}, While[prms*d < p && Union[PrimeQ[p - Range[prms]*d]] != {True}, d++]; prms*d < p]; Select[Prime[Range[PrimePi[10000]]], ! fQ[#] &] (* T. D. Noe, Sep 08 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Sep 08 2012
STATUS
approved