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,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A045334.

Sequence in context: A038921 A129633 A020622 * A045321 A045322 A296931

Adjacent sequences: A045317 A045318 A045319 * A045321 A045322 A045323

Keyword

nonn

Author

N. J. A. Sloane

Extensions

Offset corrected by Mohammed Yaseen, Mar 18 2023

Status

approved