A142399 Primes congruent to 5 mod 48.

5, 53, 101, 149, 197, 293, 389, 677, 773, 821, 1013, 1061, 1109, 1301, 1493, 1637, 1733, 1877, 1973, 2069, 2213, 2309, 2357, 2549, 2693, 2741, 2789, 2837, 3221, 3413, 3461, 3557, 3701, 3797, 3989, 4133, 4229, 4373, 4421, 4517, 5189, 5237, 5333, 5381, 5477

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(6000) | p mod 48 eq 5]; // Vincenzo Librandi, Aug 27 2012

Mathematica

Select[Prime[Range[1000]], MemberQ[{5}, Mod[#, 48]] &] (* Vincenzo Librandi, Aug 27 2012 *)
Select[Range[5,6000,48],PrimeQ] (* Harvey P. Dale, Nov 20 2013 *)

PARI

select(n->n%48==5,primes(1000)) \\ Charles R Greathouse IV, Dec 07 2014