A216496 Primes that are not in A094383.

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

Author

Alex Ratushnyak, Sep 08 2012

Keywords

• nonn

Comments

Conjecture: a(25)=557 is the last term.

Crossrefs

Cf. A216495, A094383, A216497, A216498, A216468.

Programs

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 *)