%I #9 Sep 08 2022 08:45:37
%S 163,277,619,733,1303,1531,1759,1873,1987,2557,2671,3469,3583,3697,
%T 4153,4723,4951,5179,5407,5521,5749,6091,6547,6661,7459,7573,7687,
%U 8599,8713,8941,9283,9397,9511,9739,9967,10651,10993,11677,12589,12703,13159,13729
%N Primes congruent to 49 mod 57.
%H Vincenzo Librandi, <a href="/A142695/b142695.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2400]], MemberQ[{49}, Mod[#, 57]] &] (* _Vincenzo Librandi_, Sep 02 2012 *)
%t Select[Range[49,14000,57],PrimeQ] (* _Harvey P. Dale_, Jul 16 2020 *)
%o (Magma) [p: p in PrimesUpTo(14000) | p mod 57 eq 49 ]; // _Vincenzo Librandi_, Sep 02 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|