A142104 Primes congruent to 13 mod 36.

13, 157, 193, 229, 337, 373, 409, 661, 733, 769, 877, 1021, 1093, 1129, 1201, 1237, 1381, 1453, 1489, 1597, 1669, 1741, 1777, 1993, 2029, 2137, 2281, 2389, 2677, 2713, 2749, 2857, 3001, 3037, 3109, 3181, 3217, 3253, 3361, 3433, 3469, 3541, 3613, 3793, 4153

Offset

1,1

Links

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

Mathematica

Select[Range[13, 20000, 36], PrimeQ] (* Vladimir Joseph Stephan Orlovsky, Jul 02 2011 *)
Select[Prime[Range[1500]], MemberQ[{13}, Mod[#, 36]]&] (* Vincenzo Librandi, Aug 19 2012 *)

Prog

(PARI) select(n->n%36==13, primes(1000)) \\ Charles R Greathouse IV, Jul 02, 2011
(Magma) [p: p in PrimesUpTo(5000) | p mod 36 eq 13 ]; // Vincenzo Librandi, Aug 19 2012

Crossrefs

Cf. A000040.

Sequence in context: A170732 A360172 A250210 * A140020 A130868 A154414

Adjacent sequences: A142101 A142102 A142103 * A142105 A142106 A142107

Keyword

nonn,easy

Author

N. J. A. Sloane, Jul 11 2008

Status

approved