A045417 Primes congruent to {0, 1, 3, 4, 6} mod 7.

3, 7, 11, 13, 17, 29, 31, 41, 43, 53, 59, 67, 71, 73, 83, 97, 101, 109, 113, 127, 137, 139, 151, 157, 167, 179, 181, 193, 197, 199, 211, 223, 227, 239, 241, 251, 263, 269, 277, 281, 283, 293, 307, 311, 337, 347

Offset

1,1

Links

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

Mathematica

Select[Prime[Range[200]], MemberQ[{0, 1, 3, 4, 6}, Mod[#, 7]]&] (* Vincenzo Librandi, Aug 12 2012 *)
Select[Flatten[#+{0, 1, 3, 4, 6}&/@(7Range[0, 50])], PrimeQ] (* Harvey P. Dale, Mar 22 2023 *)

Prog

(Magma) [ p: p in PrimesUpTo(500) | p mod 7 in {0, 1, 3, 4, 6} ]; // Vincenzo Librandi, Aug 12 2012

Crossrefs

Cf. A000040.

Sequence in context: A184865 A055211 A183176 * A260379 A045418 A257057

Adjacent sequences: A045414 A045415 A045416 * A045418 A045419 A045420

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved