%I #11 Feb 13 2023 18:32:28

%S 23,137,251,479,593,821,1049,1163,1277,1619,1733,1847,2417,2531,3329,

%T 3557,3671,4013,4127,4241,4583,5039,5153,5381,6521,6863,6977,7433,

%U 7547,8117,8231,8573,9029,9257,9371,9941,10169,10739,10853,11423,12107,12791,13931

%N Primes congruent to 23 mod 57.

%H Vincenzo Librandi, <a href="/A142679/b142679.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) ~ 36n log n. - _Charles R Greathouse IV_, Jul 03 2016

%t Select[Prime[Range[2400]], MemberQ[{23}, Mod[#, 57]] &] (* _Vincenzo Librandi_, Sep 02 2012 *)

%t Select[Range[23,14000,57],PrimeQ] (* _Harvey P. Dale_, Feb 13 2023 *)

%o (Magma) [p: p in PrimesUpTo(14000) | p mod 57 eq 23 ]; // _Vincenzo Librandi_, Sep 02 2012

%o (PARI) is(n)=isprime(n) && n%57==23 \\ _Charles R Greathouse IV_, Jul 03 2016

%Y Cf. A000040.

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_, Jul 11 2008