|
%I #9 Sep 08 2022 08:45:37
%S 31,157,283,409,661,787,1039,1291,1543,1669,2551,2677,2803,3181,3307,
%T 3433,3559,4441,4567,5197,5323,5449,5701,5827,5953,6079,6709,6961,
%U 7213,7591,7717,8221,8599,9103,9733,9859,10111,10867,10993,11119,11497,12253,12379
%N Primes congruent to 31 mod 63.
%H Vincenzo Librandi, <a href="/A142906/b142906.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1900]], MemberQ[{31}, Mod[#, 63]] &] (* _Vincenzo Librandi_, Sep 06 2012 *)
%t Select[Range[31,13000,63],PrimeQ] (* _Harvey P. Dale_, Jul 04 2019 *)
%o (Magma) [p: p in PrimesUpTo(13000) | p mod 63 eq 31 ] ; // _Vincenzo Librandi_, Sep 06 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
