|
%I #12 Sep 08 2022 08:45:35
%S 31,67,103,139,211,283,463,499,571,607,643,751,787,823,859,967,1039,
%T 1291,1327,1399,1471,1543,1579,1723,1759,1831,1867,2011,2083,2371,
%U 2551,2659,2731,2767,2803,3019,3163,3271,3307,3343,3559,3631,3739,3847,3919,4027
%N Primes congruent to 31 mod 36.
%H Vincenzo Librandi, <a href="/A142110/b142110.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 12n log n. - _Charles R Greathouse IV_, Jul 02 2016
%t Select[Range[31,4100,36],PrimeQ] (* _Harvey P. Dale_, Nov 26 2011 *)
%t Select[Prime[Range[1500]],MemberQ[{31},Mod[#,36]]&] (* _Vincenzo Librandi_, Aug 19 2012 *)
%o (Magma) [p: p in PrimesUpTo(5000) | p mod 36 eq 31 ]; // _Vincenzo Librandi_, Aug 19 2012
%o (PARI) is(n)=isprime(n) && n%36==31 \\ _Charles R Greathouse IV_, Jul 02 2016
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
