|
%I
%S 31,79,127,223,271,367,463,607,751,991,1039,1087,1231,1279,1327,1423,
%T 1471,1567,1663,1759,1951,1999,2143,2239,2287,2383,2671,2719,2767,
%U 3343,3391,3583,3631,3727,3823,3919,3967,4111,4159,4447,4591,4639,4783,4831,5023
%N Primes congruent to 31 mod 48.
%H Vincenzo Librandi, <a href="/A142408/b142408.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 16n log n. - _Charles R Greathouse IV_, Jul 03 2016
%t Select[Prime[Range[1000]], MemberQ[{31}, Mod[#, 48]] &] (* _Vincenzo Librandi_, Aug 27 2012 *)
%t Select[Range[31,5100,48],PrimeQ] (* _Harvey P. Dale_, Jan 17 2017 *)
%o (Magma) [p: p in PrimesUpTo(6000) | p mod 48 eq 31]; // _Vincenzo Librandi_, Aug 27 2012
%o (PARI) is(n)=isprime(n) && n%48==31 \\ _Charles R Greathouse IV_, Jul 03 2016
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
