|
%I #9 Sep 08 2022 08:45:37
%S 113,227,569,683,797,911,1367,1481,1709,1823,2393,2621,2963,3191,3533,
%T 3761,3989,4217,4673,4787,5471,5813,5927,6269,7523,8093,8663,9461,
%U 9689,9803,10259,10487,10601,11057,11171,11399,11969,12197,12539,12653,13109,13337
%N Primes congruent to 56 mod 57.
%H Vincenzo Librandi, <a href="/A142700/b142700.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2300]], MemberQ[{56}, Mod[#, 57]] &] (* _Vincenzo Librandi_, Sep 02 2012 *)
%t Select[Range[56,14000,57],PrimeQ] (* _Harvey P. Dale_, May 27 2019 *)
%o (Magma) [p: p in PrimesUpTo(14000) | p mod 57 eq 56 ]; // _Vincenzo Librandi_, Sep 02 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
