%I #25 Sep 08 2022 08:46:06
%S 11,13,17,19,29,31,41,43,47,59,61,71,73,79,89,101,103,107,109,131,137,
%T 139,149,151,163,167,179,181,191,193,197,199,211,223,227,229,239,241,
%U 251,257,269,271,281,283,311,313,317,331,347,349,359,373,379,389
%N Primes congruent to {1, 11, 13, 17, 19, 29} mod 30.
%C For twin primes congruent to {1, 11, 13, 17, 19, 29} mod 30 see A132247.
%C Complement of A132237, primes congruent to 7 or 23 (mod 30), in the set of primes > 5. - _M. F. Hasler_, Nov 02 2013
%H Omar E. Pol, <a href="http://www.polprimos.com/imagenes/cribade30columnas.jpg">Prime numbers in a sieve with 30 columns</a>
%F a(n) ~ 4/3 n log n. - _Charles R Greathouse IV_, Mar 08 2015
%t Select[Flatten[Table[30n + {1, 11, 13, 17, 19, 29}, {n, 0, 11}]], PrimeQ] (* _Alonso del Arte_, Nov 01 2013 *)
%t Select[Prime@Range[100], MemberQ[{1, 11, 13, 17, 19, 29}, Mod[#, 30]] &] (* _Vincenzo Librandi_, Apr 05 2015 *)
%o (PARI) is(n)=isprime(n) && setsearch([1,11,13,17,19,29], n%30) \\ _Charles R Greathouse IV_, Mar 08 2015
%o (Magma) [p: p in PrimesUpTo(500) | p mod 30 in {1,11,13,17, 19,29} ]; // _Vincenzo Librandi_, Apr 05 2015
%Y Cf. A000040, A001097, A039949, A132230, A132232-A132234, A132236, A132238-A132259, A230462.
%K nonn,easy
%O 1,1
%A _Omar E. Pol_, Oct 27 2013
|