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

Links

Table of n, a(n) for n=0..55.

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(500) | not p mod 7 eq 4]; // Vincenzo Librandi, Apr 11 2016
(PARI) lista(nn) = forprime(p=2, nn, if(p%7 != 4, print1(p, ", "))); \\ Altug Alkan, Apr 11 2016

Crossrefs

Cf. A045471.

Sequence in context: A106118 A029743 A344620 * A040169 A040165 A162950

Adjacent sequences: A042987 A042988 A042989 * A042991 A042992 A042993

Keyword

nonn

Author

N. J. A. Sloane

Status

approved