A092178 Primes congruent to 8 mod 13.

47, 73, 151, 229, 281, 307, 359, 463, 541, 593, 619, 827, 853, 983, 1009, 1061, 1087, 1217, 1321, 1373, 1399, 1451, 1607, 1789, 1867, 1997, 2153, 2179, 2309, 2543, 2621, 2647, 2699, 2777, 2803, 3011, 3037, 3089, 3167, 3271, 3323, 3557, 3583, 3739, 3947

Offset

1,1

Links

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

Mathematica

lst={}; Do[p=Prime[n]; If[Mod[p, 13]==8, AppendTo[lst, p]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 26 2009 *)
Select[Prime@Range[600], MemberQ[{8}, Mod[#, 13]] &] (* Vincenzo Librandi, Aug 14 2012 *)
Select[Range[8, 4000, 13], PrimeQ] (* Bruno Berselli, Aug 17 2012 *)

Prog

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

Crossrefs

Sequence in context: A282633 A369957 A052231 * A338273 A165335 A039425

Adjacent sequences: A092175 A092176 A092177 * A092179 A092180 A092181

Keyword

nonn,easy

Author

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

Extensions

More terms from Pab Ter (pabrlos(AT)yahoo.com), May 25 2004

Status

approved