A142318 Primes congruent to 13 mod 45.

13, 103, 193, 283, 373, 463, 643, 733, 823, 1093, 1453, 1543, 1723, 1993, 2083, 2713, 2803, 3163, 3253, 3343, 3433, 3613, 3793, 4153, 4243, 4423, 4513, 4603, 4783, 5233, 5323, 5413, 5503, 5683, 5953, 6043, 6133, 6673, 6763, 7213, 7393, 7573, 7753, 7933

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(10000) | p mod 45 eq 13]; // Vincenzo Librandi, Aug 26 2012

Mathematica

Select[Range[13, 30000, 90], PrimeQ] (* Vladimir Joseph Stephan Orlovsky, Jul 14 2011 *)
Select[Prime[Range[3000]],MemberQ[{13},Mod[#,45]]&] (* Vincenzo Librandi, Aug 26 2012 *)

PARI

select(n->n%45==13,primes(1000)) \\ Charles R Greathouse IV, Feb 06 2013