A129806 Primes congruent to +-5 mod 18.
5, 13, 23, 31, 41, 59, 67, 103, 113, 131, 139, 149, 157, 167, 193, 211, 229, 239, 257, 283, 293, 311, 337, 347, 373, 383, 401, 409, 419, 463, 491, 499, 509, 563, 571, 599, 607, 617, 643, 653, 661, 733, 743, 751, 761, 769, 787, 797, 823, 859, 877, 887, 941, 967, 977, 1013
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- Emma Lehmer, On special primes, Pac. J. Math., 118 (1985), 471-478.
Programs
-
Magma
[ p: p in PrimesUpTo(1300) | p mod 18 in {5, 13} ]; // Vincenzo Librandi, Aug 14 2012
-
Mathematica
Select[Prime[Range[4000]],MemberQ[{5,13},Mod[#,18]]&] (* Vincenzo Librandi, Aug 14 2012 *)
Comments