A045320 Primes not congruent to 5 (mod 7).

2, 3, 7, 11, 13, 17, 23, 29, 31, 37, 41, 43, 53, 59, 67, 71, 73, 79, 83, 97, 101, 107, 109, 113, 127, 137, 139, 149, 151, 157, 163, 167, 179, 181, 191, 193, 197, 199, 211, 223, 227, 233, 239, 241, 251, 263, 269, 277, 281, 283, 293, 307, 311, 317, 331, 337, 347

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn

Links

• Mohammed Yaseen, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harvey P. Dale)

Crossrefs

Cf. A045334.

Programs

Mathematica

Select[Prime[Range[2000]],Mod[#,7]!=5&] (* Harvey P. Dale, Feb 26 2013 *)

PARI

forprime(p=2, 350, if(p%7 != 5, print1(p, ", "))) \\ Mohammed Yaseen, Mar 18 2023

Extensions

Offset corrected by Mohammed Yaseen, Mar 18 2023