|
%I #10 Sep 08 2022 08:45:37
%S 79,197,433,787,1259,1613,2203,2557,4091,4327,4799,5153,5507,5743,
%T 5861,6451,6569,7159,7867,8221,8693,8929,9283,10463,11171,12823,12941,
%U 13177,13649,14593,14947,15773,16127,16363,16481,17189,18133,18251,18959,20021
%N Primes congruent to 20 mod 59.
%H Vincenzo Librandi, <a href="/A142747/b142747.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2300]],Mod[#,59]==20&] (* _Harvey P. Dale_, Mar 16 2011 *)
%t Select[Prime[Range[2500]], MemberQ[{20}, Mod[#, 59]] &] (* _Vincenzo Librandi_, Sep 03 2012 *)
%o (Magma) [p: p in PrimesUpTo(21000) | p mod 59 eq 20 ]; // _Vincenzo Librandi_, Sep 03 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
