%I #9 Sep 08 2022 08:45:37

%S 191,419,647,761,1103,1217,1559,1787,1901,2129,2243,2357,2699,2927,

%T 3041,4409,4523,4637,4751,6689,6803,6917,7487,7829,8171,8513,8627,

%U 8741,8969,9311,9539,9767,10223,10337,11933,12161,12503,12959,13187,13757,14327,14669

%N Primes congruent to 20 mod 57.

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

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

%t Select[Range[20,15000,57],PrimeQ] (* _Harvey P. Dale_, Dec 09 2013 *)

%o (Magma) [p: p in PrimesUpTo(15000) | p mod 57 eq 20 ]; // _Vincenzo Librandi_, Sep 01 2012

%Y Cf. A000040.

%K nonn,easy

%O 1,1

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