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,1

Links

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

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

Prog

(Magma) [p: p in PrimesUpTo(6000) | p mod 48 eq 5]; // Vincenzo Librandi, Aug 27 2012
(PARI) select(n->n%48==5, primes(1000)) \\ Charles R Greathouse IV, Dec 07 2014

Crossrefs

Cf. A000040.

Sequence in context: A352690 A362252 A091272 * A107004 A139869 A072156

Adjacent sequences: A142396 A142397 A142398 * A142400 A142401 A142402

Keyword

nonn,easy

Author

N. J. A. Sloane, Jul 11 2008

Status

approved