|
%I
%S 3,7,13,19,31,61,67,73,79,97,109,151,157,181,193,199,223,313,331,349,
%T 373,397,457,487,523,541,571,577,607,613,643,661,691,709,727,739,769,
%U 811,859,919,991,997,1021,1033,1039,1069,1087,1129,1171,1201,1213,1249,1279,1321
%N Numbers n such that n and 5n + 2 are both prime.
%t lst={}; Do[p=Prime[n]; If[PrimeQ[5*p+2],AppendTo[lst,p]],{n,6!}]; lst [From _Vladimir Joseph Stephan Orlovsky_, Aug 16 2009]
%o (MAGMA) [n: n in [0..1000] | IsPrime(n) and IsPrime(5*n+2)] [From V.Librandi, Nov 20 2010]
%K nonn
%O 1,1
%A _David W. Wilson_
|
