%I #9 Jan 15 2024 12:23:35
%S 79,193,307,421,877,991,1447,1789,2017,2131,2473,3271,3499,3613,3727,
%T 4297,4639,5209,5323,5437,5779,6007,6121,6577,6691,7489,7603,7717,
%U 8059,8287,8629,8971,9199,9769,9883,10111,10453,10567,10909,11251,11593,11821,12049
%N Primes congruent to 22 mod 57.
%H Vincenzo Librandi, <a href="/A142678/b142678.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2400]], MemberQ[{22}, Mod[#, 57]] &] (* _Vincenzo Librandi_, Sep 02 2012 *)
%t Select[Range[22,12500,57],PrimeQ] (* _Harvey P. Dale_, Jan 15 2024 *)
%o (Magma) [p: p in PrimesUpTo(13000) | p mod 57 eq 22 ]; // _Vincenzo Librandi_, Sep 02 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008