|
%I #9 Sep 08 2022 08:45:37
%S 41,269,383,839,953,1181,1409,1523,1637,1979,2207,2549,2663,2777,3119,
%T 3347,3461,3803,3917,4259,4373,4943,5171,5399,5741,6197,6311,6653,
%U 7109,7451,7793,7907,8363,8819,8933,9161,10301,10529,11213,11783,11897,12011,12239
%N Primes congruent to 41 mod 57.
%H Vincenzo Librandi, <a href="/A142690/b142690.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2300]], MemberQ[{41}, Mod[#, 57]] &] (* _Vincenzo Librandi_, Sep 02 2012 *)
%t Select[Range[41,12300,57],PrimeQ] (* _Harvey P. Dale_, Mar 13 2014 *)
%o (Magma) [p: p in PrimesUpTo(13000) | p mod 57 eq 41 ]; // _Vincenzo Librandi_, Sep 02 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
