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