A142107 Primes congruent to 23 mod 36.
23, 59, 131, 167, 239, 311, 347, 383, 419, 491, 563, 599, 743, 887, 1031, 1103, 1283, 1319, 1427, 1499, 1571, 1607, 1787, 1823, 1931, 2003, 2039, 2111, 2399, 2543, 2579, 2687, 2903, 2939, 3011, 3083, 3119, 3191, 3299, 3371, 3407, 3623, 3659, 3767, 3803, 3911
Offset: 1
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 23 ]; // Vincenzo Librandi, Aug 19 2012
-
Mathematica
Select[Range[23, 20000, 36], PrimeQ] (* Vladimir Joseph Stephan Orlovsky, Jul 02 2011 *) Select[Prime[Range[1500]],MemberQ[{23},Mod[#,36]]&] (* Vincenzo Librandi, Aug 19 2012 *)
-
PARI
select(n->n%36==23,primes(1000)) \\ Charles R Greathouse IV, Jul 02 2011