Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #19 Nov 15 2024 17:13:09
%S 139,263,449,821,883,1069,1193,1627,1999,2309,2371,2557,3301,3673,
%T 3797,4231,4603,4789,5099,5347,5471,5657,5843,6029,6091,6277,6959,
%U 7207,7331,7393,7517,7703,7951,8447,8819,9067,9377,9439,9749,9811,10369,11113,11299
%N Primes congruent to 15 mod 31.
%H Vincenzo Librandi, <a href="/A142019/b142019.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[15,20000,31],PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Apr 20 2011 *)
%t Select[Prime[Range[1500]],Mod[#,31]==15&] (* _Harvey P. Dale_, Nov 15 2024 *)
%o (Magma) [ p: p in PrimesUpTo(30000) | p mod 31 eq 15 ]; // _Vincenzo Librandi_, Apr 20 2011
%o (PARI) is(n)=isprime(n) && n%31==15 \\ _Charles R Greathouse IV_, Jul 01 2016
%Y Cf. A000040, A142005, A142006.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008