%I #16 Jun 26 2022 23:16:55
%S 2,3,5,7,13,17,19,23,29,31,37,41,43,47,59,61,71,73,79,83,89,97,101,
%T 103,107,113,127,131,139,149,157,163,167,173,181,191,197,199,211,223,
%U 227,229,233,239,241,251,257,269,271,281,283,293,307,311,313,317
%N Primes not congruent to 4 (mod 7).
%t Select[Prime[Range[80]], Mod[#, 7] !=4 &] (* _Vincenzo Librandi_, Apr 11 2016 *)
%o (Magma) [p: p in PrimesUpTo(500) | not p mod 7 eq 4]; // _Vincenzo Librandi_, Apr 11 2016
%o (PARI) lista(nn) = forprime(p=2, nn, if(p%7 != 4, print1(p, ", "))); \\ _Altug Alkan_, Apr 11 2016
%Y Cf. A045471.
%K nonn
%O 0,1
%A _N. J. A. Sloane_