A042990 Primes not congruent to 4 (mod 7).

2, 3, 5, 7, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 59, 61, 71, 73, 79, 83, 89, 97, 101, 103, 107, 113, 127, 131, 139, 149, 157, 163, 167, 173, 181, 191, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 269, 271, 281, 283, 293, 307, 311, 313, 317

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Crossrefs

Cf. A045471.

Programs

Magma

[p: p in PrimesUpTo(500) | not p mod 7 eq 4]; // Vincenzo Librandi, Apr 11 2016

Mathematica

Select[Prime[Range[80]], Mod[#, 7] !=4 &] (* Vincenzo Librandi, Apr 11 2016 *)

PARI

lista(nn) = forprime(p=2, nn, if(p%7 != 4, print1(p, ", "))); \\ Altug Alkan, Apr 11 2016