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,1

Comments

Used in a primality test.

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Chris Caldwell, Prime Test.

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 *)

Prog

(Magma) [p: p in PrimesUpTo(4500) | p mod 13 eq 6 ]; // Vincenzo Librandi, Aug 14 2012
(PARI) is(n)=isprime(n) && n%13==6 \\ Charles R Greathouse IV, Jul 01 2016

Crossrefs

Sequence in context: A172078 A196136 A198002 * A226802 A342737 A142516

Adjacent sequences: A093347 A093348 A093349 * A093351 A093352 A093353

Keyword

nonn,easy

Author

Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Apr 26 2004

Extensions

Corrected and extended by Emeric Deutsch, Feb 28 2005

Status

approved