A093350 Primes congruent to 6 mod 13.
19, 71, 97, 149, 227, 331, 383, 409, 461, 487, 617, 643, 773, 877, 929, 1033, 1163, 1319, 1423, 1553, 1579, 1657, 1709, 1787, 2099, 2203, 2281, 2333, 2411, 2437, 2593, 2671, 2749, 2801, 2879, 2957, 3061, 3191, 3217
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- Chris Caldwell, Prime Test.
Programs
-
Magma
[p: p in PrimesUpTo(4500) | p mod 13 eq 6 ]; // Vincenzo Librandi, Aug 14 2012
-
Maple
p:=proc(n) if isprime(n)=true and n mod 13 = 6 then n else fi end:seq(p(n), n=1..4500); # Emeric Deutsch, Feb 28 2005
-
Mathematica
Select[Range[6, 20000, 13], PrimeQ] (* Vladimir Joseph Stephan Orlovsky, Jun 18 2011 *)
-
PARI
is(n)=isprime(n) && n%13==6 \\ Charles R Greathouse IV, Jul 01 2016
Extensions
Corrected and extended by Emeric Deutsch, Feb 28 2005
Comments