%I #13 Sep 08 2022 08:45:37
%S 487,853,1097,1951,2683,2927,3049,3659,4391,4513,6221,6343,6709,8539,
%T 8783,10247,10369,10613,10979,11467,11833,12809,13297,13907,14029,
%U 14639,15493,15737,15859,16103,18787,19031,19763,20129,20983,21227,22447,22691,23057
%N Primes congruent to 60 mod 61.
%H Vincenzo Librandi, <a href="/A142858/b142858.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 60n log n. - _Charles R Greathouse IV_, Jul 03 2016
%t Select[Range[60, 30000, 61], PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Jul 14 2011 *)
%t Select[Prime[Range[2800]], MemberQ[{60}, Mod[#, 61]] &] (* _Vincenzo Librandi_, Sep 06 2012 *)
%o (Magma) [p: p in PrimesUpTo(24000) | p mod 61 eq 60 ] ; // _Vincenzo Librandi_, Sep 06 2012
%o (PARI) is(n)=isprime(n) && n%61==60 \\ _Charles R Greathouse IV_, Jul 03 2016
%Y Cf. A000040, A142322.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|