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

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(5000) | p mod 36 eq 13 ]; // Vincenzo Librandi, Aug 19 2012

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

PARI

select(n->n%36==13,primes(1000)) \\ Charles R Greathouse IV, Jul 02 2011