A142531 Primes congruent to 51 mod 52.
103, 311, 467, 571, 727, 883, 1039, 1091, 1559, 1663, 1871, 2027, 2131, 2287, 2339, 2963, 3067, 3119, 3691, 3847, 4003, 4159, 4211, 4523, 4679, 4783, 5147, 5303, 5407, 5563, 5927, 6343, 6551, 6863, 6967, 7019, 7331, 7487, 7591, 7643, 8059, 8111, 8423, 8527
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A000040.
Programs
-
Magma
[p: p in PrimesUpTo(10000) | p mod 52 eq 51]; // Vincenzo Librandi, Aug 29 2012
-
Mathematica
Select[Prime[Range[1300]], MemberQ[{51}, Mod[#, 52]] &] (* Vincenzo Librandi, Aug 29 2012 *) Select[Range[51,9000,52],PrimeQ] (* Harvey P. Dale, Apr 18 2019 *)
-
PARI
is(n)=isprime(n) && n%52==51 \\ Charles R Greathouse IV, Jul 03 2016
Formula
a(n) ~ 24n log n. - Charles R Greathouse IV, Jul 03 2016