login
A042990
Primes not congruent to 4 (mod 7).
1
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
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
KEYWORD
nonn
STATUS
approved