|
%I #9 Dec 16 2012 10:31:23
%S 2,7,13,19,29,31,37,41,43,61,67,73,79,83,97,103,107,109,127,139,151,
%T 157,163,167,179,181,193,199,211,223,227,229,241,251,263,269,271,277,
%U 281,283,293,307,313,331,337,349,353,359,367,373,379,389,397,409,419
%N Primes p such that 5*p-2 is composite.
%e 5*2-2=8, 5*7-2=33, 5*13-2=63,...
%t a={};Do[p=Prime[n];If[ !PrimeQ[5*p-2],AppendTo[a,p]],{n,8^2}];a
%t Select[Prime[Range[100]],!PrimeQ[5#-2]&] (* _Harvey P. Dale_, Dec 16 2012 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 15 2008
%E More terms from _Vincenzo Librandi_, Apr 01 2010
|
