A045340 Primes congruent to {1, 2, 3, 6} mod 7.

2, 3, 13, 17, 23, 29, 31, 37, 41, 43, 59, 71, 73, 79, 83, 97, 101, 107, 113, 127, 139, 149, 157, 163, 167, 181, 191, 197, 199, 211, 223, 227, 233, 239, 241, 251, 269, 281, 283, 293, 307, 311, 317, 331, 337, 349

Offset

1,1

Links

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

Mathematica

Select[Prime[Range[300]], MemberQ[{1, 2, 3, 6}, Mod[#, 7]]&] (* Vincenzo Librandi, Aug 10 2012 *)

Prog

(Magma) [p: p in PrimesUpTo(500) | p mod 7 in [1, 2, 3, 6]]; // Vincenzo Librandi, Aug 102012

Crossrefs

Cf. A000040.

Sequence in context: A019394 A048704 A379583 * A038882 A019339 A045341

Adjacent sequences: A045337 A045338 A045339 * A045341 A045342 A045343

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved