(MAGMAMagma) [p: p in PrimesUpTo(500) | p mod 30 in {1, 11, 13, 17, 19, 29} ]; // Vincenzo Librandi, Apr 05 2015
(MAGMAMagma) [p: p in PrimesUpTo(500) | p mod 30 in {1, 11, 13, 17, 19, 29} ]; // Vincenzo Librandi, Apr 05 2015
reviewed
approved
proposed
reviewed
editing
proposed
Select[Prime@Range[100], MemberQ[{1, 11, 13, 17, 19, 29}, Mod[#, 30]] &] (* Vincenzo Librandi, Apr 05 2015 *)
(MAGMA) [p: p in PrimesUpTo(500) | p mod 30 in {1, 11, 13, 17, 19, 29} ]; // Vincenzo Librandi, Apr 05 2015
approved
editing
editing
approved
_Omar E. Pol_, , <a href="http://www.polprimos.com/imagenes/cribade30columnas.jpg">Prime numbers in a sieve with 30 columns</a>
a(n) ~ 4/3 n log n. - Charles R Greathouse IV, Mar 08 2015
(PARI) is(n)=isprime(n) && setsearch([1, 11, 13, 17, 19, 29], n%30) \\ Charles R Greathouse IV, Mar 08 2015
nonn,easy
approved
editing
proposed
approved
editing
proposed
Select[FlatttenFlatten[Table[30n + {1, 11, 13, 17, 19, 29}, {n, 0, 11}]], PrimeQ] (* Alonso del Arte, Nov 01 2013 *)
proposed
editing