%I #11 Nov 21 2013 12:49:20
%S 2,7,13,17,19,29,31,37,41,43,59,61,67,73,79,83,89,97,103,109,113,127,
%T 137,139,149,151,157,163,179,181,191,193,199,211,223,227,229,233,239,
%U 241,263,269,271,277,281,283,307,313,331,337,347,349,359,367,373,379
%N Primes p such that 7*p+2 is composite.
%e 7*2+2=16, 7*7+2=51, 7*13+2=93,...
%t a={};Do[p=Prime[n];If[ !PrimeQ[7*p+2],AppendTo[a,p]],{n,8^2}];a
%t Select[Prime[Range[200]],!PrimeQ[7#+2]&] (* _Harvey P. Dale_, Aug 05 2011 *)
%Y Cf. A153351.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 15 2008
%E More terms from _Vincenzo Librandi_, Apr 01 2010
|