|
%I #14 Apr 03 2023 10:36:10
%S 17,43,173,199,251,277,433,563,641,719,797,823,953,1031,1109,1187,
%T 1213,1291,1447,1499,1733,1759,1811,1889,1993,2357,2383,2539,2591,
%U 2617,2851,2903,3137,3163,3319,3371,3449,3527,3631,3709,3761,3917,3943,4021,4073
%N Primes congruent to 4 mod 13.
%H Vincenzo Librandi, <a href="/A093191/b093191.txt">Table of n, a(n) for n = 1..1000</a>
%H Chris Caldwell, <a href="https://t5k.org/curios/includes/file.php?file=primetest.html">Prime test</a>.
%t Select[Range[4, 20000, 13], PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Jun 18 2011 *)
%o (Magma) [p: p in PrimesUpTo(4500) | p mod 13 eq 4 ]; // _Vincenzo Librandi_, Aug 14 2012
%o (PARI) is(n)=isprime(n) && n%13==4 \\ _Charles R Greathouse IV_, Jul 01 2016
%K nonn,easy
%O 1,1
%A Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Apr 20 2004
%E More terms from Pab Ter (pabrlos(AT)yahoo.com), May 24 2004
|
