%I #3 Mar 31 2012 12:38:24
%S 41,59,71,83,97,107,113,173,181,223,239,307,331,349,353,373,383,397,
%T 457,467,479,547,577,613,619,647,661,673,701,761,821,829,863,919,937,
%U 941,947,953,1009,1021,1033,1049,1063,1103,1117,1129,1151,1213,1223,1229
%N Primes p such that 2p+3*5*7*11*13*17*19*23*29*31*37 is prime.
%t a=3*5*7*11*13*17*19*23*29*31*37;c=0;lst={};Do[p=Prime[n];If[PrimeQ[2*p+a],AppendTo[lst,p],c++ ],{n,6!}];lst
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jun 14 2009
%E Definition edited by _Emeric Deutsch_, Jun 25 2009
|