login
Primes that are not in A094383.
1

%I #5 Sep 08 2012 14:20:55

%S 2,3,5,7,11,13,17,19,31,37,47,61,67,71,73,89,109,137,179,211,277,337,

%T 379,499,557

%N Primes that are not in A094383.

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

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

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

%K nonn

%O 1,1

%A _Alex Ratushnyak_, Sep 08 2012