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
KEYWORD
nonn
AUTHOR
STATUS
approved