A142399 - OEIS

%I #12 Sep 08 2022 08:45:36

%S 5,53,101,149,197,293,389,677,773,821,1013,1061,1109,1301,1493,1637,

%T 1733,1877,1973,2069,2213,2309,2357,2549,2693,2741,2789,2837,3221,

%U 3413,3461,3557,3701,3797,3989,4133,4229,4373,4421,4517,5189,5237,5333,5381,5477

%N Primes congruent to 5 mod 48.

%H Vincenzo Librandi, <a href="/A142399/b142399.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Prime[Range[1000]], MemberQ[{5}, Mod[#, 48]] &] (* _Vincenzo Librandi_, Aug 27 2012 *)

%t Select[Range[5,6000,48],PrimeQ] (* _Harvey P. Dale_, Nov 20 2013 *)

%o (Magma) [p: p in PrimesUpTo(6000) | p mod 48 eq 5]; // _Vincenzo Librandi_, Aug 27 2012

%o (PARI) select(n->n%48==5,primes(1000)) \\ _Charles R Greathouse IV_, Dec 07 2014

%Y Cf. A000040.

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_, Jul 11 2008