A142369 Primes congruent to 18 mod 47.
347, 911, 1193, 1381, 1663, 2039, 2791, 3167, 3449, 3637, 3919, 4013, 4201, 4483, 5987, 6269, 6551, 6833, 7867, 8243, 8431, 8713, 8807, 9277, 9371, 10499, 10687, 10781, 11251, 11909, 12097, 12379, 12473, 13037, 13789, 13883, 14071, 14447, 15199, 16139, 16421
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A000040.
Programs
-
Magma
[p: p in PrimesUpTo(18000) | p mod 47 eq 18]; // Vincenzo Librandi, Aug 27 2012
-
Mathematica
Select[Prime[Range[2500]],MemberQ[{18},Mod[#,47]]&] (* Vincenzo Librandi, Aug 27 2012 *) Select[Range[18,17000,47],PrimeQ] (* Harvey P. Dale, Mar 06 2016 *)
-
PARI
is(n)=isprime(n) && n%47==18 \\ Charles R Greathouse IV, Jul 03 2016
Formula
a(n) ~ 46n log n. - Charles R Greathouse IV, Jul 03 2016