A142508 Primes congruent to 1 mod 52.

53, 157, 313, 521, 677, 937, 1093, 1249, 1301, 1613, 1873, 2029, 2081, 2237, 2341, 2393, 2549, 2861, 3121, 3329, 3433, 3797, 4057, 4421, 4733, 4889, 4993, 5669, 5981, 6397, 6449, 6553, 6709, 6761, 6917, 7177, 7229, 7333, 7489, 7541, 7853, 8009, 8269, 8581

Offset: 1

Author

N. J. A. Sloane, Jul 11 2008

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000040.

Programs

Magma

[p: p in PrimesUpTo(9000) | p mod 52 eq 1]; // Vincenzo Librandi, Aug 29 2012

Mathematica

Select[Prime[Range[1300]], MemberQ[{1}, Mod[#, 52]] &] (* Vincenzo Librandi, Aug 29 2012 *)
Select[Range[1,9000,52],PrimeQ] (* Harvey P. Dale, Jun 25 2013 *)

PARI

is(n)=isprime(n) && n%52==1 \\ Charles R Greathouse IV, Jul 01 2016

Python

from itertools import count, islice
from sympy import isprime
def A142508_gen(): # generator of terms
    return filter(isprime,count(1,52))
A142508_list = list(islice(A142508_gen(),30)) # Chai Wah Wu, Apr 29 2025