%I #9 Sep 08 2022 08:45:37
%S 59,181,547,1279,1523,1889,2011,2377,2621,3109,3719,4451,4817,6037,
%T 7013,7867,8111,8233,8599,9209,9697,9941,10429,11161,11527,12503,
%U 13723,13967,14699,14821,15187,15797,15919,16529,16651,17383,17627,17749,18481,19213
%N Primes congruent to 59 mod 61.
%H Vincenzo Librandi, <a href="/A142857/b142857.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2500]], MemberQ[{59}, Mod[#, 61]] &] (* _Vincenzo Librandi_, Sep 06 2012 *)
%t Select[Range[59,20000,61],PrimeQ] (* _Harvey P. Dale_, May 14 2014 *)
%o (Magma) [p: p in PrimesUpTo(20000) | p mod 61 eq 59 ] ; // _Vincenzo Librandi_, Sep 06 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|