|
%I #11 Nov 07 2013 04:25:28
%S 2,5,11,17,23,29,37,41,43,47,53,59,71,83,89,101,103,107,113,127,131,
%T 137,139,149,163,167,173,179,191,197,211,227,229,233,239,241,251,257,
%U 263,269,271,277,281,283,293,307,311,317,337,347,353,359,367,379,383,389
%N Primes p such that 5*p+2 is composite.
%H Harvey P. Dale, <a href="/A138644/b138644.txt">Table of n, a(n) for n = 1..2500</a>
%e 5*2+2=12, 5*5+2=27, 5*11+2=57,...
%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_, Nov 07 2013 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 15 2008
%E More terms from _Vincenzo Librandi_, Apr 01 2010
|
