|
%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
|
