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,1

Links

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

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 *)

Prog

(Magma) [p: p in PrimesUpTo(9000) | p mod 52 eq 1]; // Vincenzo Librandi, Aug 29 2012
(PARI) is(n)=isprime(n) && n%52==1 \\ Charles R Greathouse IV, Jul 01 2016

Crossrefs

Cf. A000040.

Sequence in context: A353136 A053070 A140655 * A279259 A142639 A141880

Adjacent sequences: A142505 A142506 A142507 * A142509 A142510 A142511

Keyword

nonn,easy

Author

N. J. A. Sloane, Jul 11 2008

Status

approved