A271367 Primes congruent to 11, 13, 17 or 19 (mod 30).
11, 13, 17, 19, 41, 43, 47, 71, 73, 79, 101, 103, 107, 109, 131, 137, 139, 163, 167, 191, 193, 197, 199, 223, 227, 229, 251, 257, 281, 283, 311, 313, 317, 347, 349, 373, 379, 401, 409, 431, 433, 439, 461, 463, 467, 491, 499, 521, 523, 557, 587, 613, 617
Offset: 1
Programs
-
Magma
[p: p in PrimesUpTo(700) | p mod 30 in {11,13,17,19}]; // Vincenzo Librandi, Jan 04 2020 -
Maple
select(isprime, [seq(seq(30*i+k, k = [11,13,17,19]), i=0..100)]); # Robert Israel, Apr 05 2016
-
Mathematica
Select[Prime[Range[200]],MemberQ[{11,13,17,19},Mod[#,30]]&] (* Harvey P. Dale, Aug 23 2017 *) -
PARI
is(n)=n\10%3==1 && isprime(n) \\ Charles R Greathouse IV, Apr 05 2016
Formula
a(n) ~ 2n log n. - Charles R Greathouse IV, Apr 05 2016