A215211 Primes congruent to {2, 5, 7} mod 13.
2, 5, 7, 31, 41, 59, 67, 83, 109, 137, 163, 197, 223, 239, 241, 293, 317, 353, 379, 397, 421, 431, 449, 457, 499, 509, 577, 587, 613, 631, 683, 691, 709, 733, 743, 761, 769, 787, 811, 821, 839, 863, 941, 967, 977, 1019, 1021, 1097, 1123, 1151, 1201, 1229, 1237
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[ p: p in PrimesUpTo(2000) | p mod 13 in {2, 5, 7} ];
-
Mathematica
Select[Prime[Range[1000]],MemberQ[{2,5,7},Mod[#,13]]&] Select[Flatten[Table[13n+{2,5,7},{n,0,100}]],PrimeQ] (* Harvey P. Dale, May 10 2021 *)