%I #19 Feb 02 2023 15:47:14
%S 103,181,233,311,337,389,467,571,701,727,857,883,1013,1039,1091,1117,
%T 1429,1481,1559,1637,1663,1741,1871,1949,2027,2053,2131,2287,2339,
%U 2417,2521,2677,2729,2833,2963,3041,3067,3119,3301,3457,3613,3691,3769,3821,3847
%N Primes congruent to 12 mod 13.
%H Vincenzo Librandi, <a href="/A141859/b141859.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 12n log n. - _Charles R Greathouse IV_, Jul 03 2016
%t Select[Range[12, 50000, 13], PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Jun 13 2011 *)
%t Select[Prime[Range[600]],Mod[#,13]==12&] (* _Harvey P. Dale_, Feb 02 2023 *)
%o (Magma) [ p: p in PrimesUpTo(5000) | p mod 13 eq 12 ]; // _Vincenzo Librandi_, Apr 19 2011
%o (PARI) is(n)=isprime(n) && n%13==12 \\ _Charles R Greathouse IV_, Jul 03 2016
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|