[go: up one dir, main page]

login
A271367
Primes congruent to 11, 13, 17 or 19 (mod 30).
0
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,1
FORMULA
a(n) ~ 2n log n. - Charles R Greathouse IV, Apr 05 2016
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 *)
PROG
(PARI) is(n)=n\10%3==1 && isprime(n) \\ Charles R Greathouse IV, Apr 05 2016
(Magma) [p: p in PrimesUpTo(700) | p mod 30 in {11, 13, 17, 19}]; // Vincenzo Librandi, Jan 04 2020
CROSSREFS
Sequence in context: A215417 A249376 A068155 * A226217 A275058 A157175
KEYWORD
nonn,easy
AUTHOR
J. M. Bergot, Apr 05 2016
STATUS
approved