|
%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
|
