|
%I #18 Sep 08 2022 08:44:55
%S 2,5,7,17,19,29,37,47,59,67,79,89,97,107,109,127,137,139,149,157,167,
%T 179,197,199,227,229,239,257,269,277,307,317,337,347,349,359,367,379,
%U 389,397,409,419,439,449,457,467
%N Primes congruent to {0, 2, 4} mod 5.
%C A039703(A049084(a(n))) = even; complement of A045429. - _Reinhard Zumkeller_, Feb 25 2008
%H R. Zumkeller, <a href="/A045356/b045356.txt">Table of n, a(n) for n = 1..1001</a>
%t Select[Prime[Range[400]], MemberQ[{0, 2, 4}, Mod[#, 5]] &] (* _Vincenzo Librandi_, Aug 07 2012 *)
%t Select[Prime[Range[100]], EvenQ[Mod[#, 5]] &] (* _Zak Seidov_, Aug 31 2012 *)
%t Select[Flatten[#+{0,2,4}&/@(5*Range[0,100])],PrimeQ] (* _Harvey P. Dale_, Sep 14 2019 *)
%o (Magma) [ p: p in PrimesUpTo(1000) | p mod 5 in {0, 2, 4} ]; // _Vincenzo Librandi_, Aug 07 2012
%Y Cf. A045370, A045378, A137977.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_
|
