A129807 Primes congruent to +-7 mod 18.
7, 11, 29, 43, 47, 61, 79, 83, 97, 101, 137, 151, 173, 191, 223, 227, 241, 263, 277, 281, 313, 317, 331, 349, 353, 367, 389, 421, 439, 443, 457, 461, 479, 547, 569, 587, 601, 619, 641, 659, 673, 677, 691, 709, 727, 821, 839, 853, 857, 907, 911, 929, 947, 983, 997, 1019
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 {7, 11} ]; // Vincenzo Librandi, Aug 14 2012
-
Mathematica
Select[Prime[Range[1000]],MemberQ[{7,11},Mod[ #,18]]&] (* Zak Seidov, May 23 2007 *)
Comments