A045429 Primes congruent to {1, 3} mod 5.
3, 11, 13, 23, 31, 41, 43, 53, 61, 71, 73, 83, 101, 103, 113, 131, 151, 163, 173, 181, 191, 193, 211, 223, 233, 241, 251, 263, 271, 281, 283, 293, 311, 313, 331, 353, 373, 383, 401, 421, 431, 433, 443, 461, 463, 491, 503, 521, 523, 541, 563, 571, 593, 601, 613, 631, 641
Offset: 1
Links
- R. Zumkeller, Table of n, a(n) for n = 1..1001
Programs
-
Magma
[ p: p in PrimesUpTo(600) | p mod 5 in {1,3} ]; // Vincenzo Librandi, Aug 13 2012
-
Mathematica
Select[Prime[Range[200]], MemberQ[{1, 3}, Mod[#, 5]] &] (* Vincenzo Librandi, Aug 13 2012 *) Select[Prime[Range[200]], OddQ[Mod[#, 5]] &] (* Zak Seidov, Aug 31 2012 *)
Comments