A045391 Primes congruent to {1, 2} mod 7.

2, 23, 29, 37, 43, 71, 79, 107, 113, 127, 149, 163, 191, 197, 211, 233, 239, 281, 317, 331, 337, 359, 373, 379, 401, 421, 443, 449, 457, 463, 491, 499, 541, 547, 569, 617, 631, 653, 659, 673, 701, 709, 743, 751

Offset

1,1

Links

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

Mathematica

Select[Prime[Range[300]], MemberQ[{1, 2}, Mod[#, 7]]&] (* Vincenzo Librandi, Aug 10 2012 *)
Select[Flatten[#+{1, 2}&/@(7*Range[0, 120])], PrimeQ] (* Harvey P. Dale, Sep 15 2019 *)

Prog

(Magma) [p: p in PrimesUpTo(1000) | p mod 7 in [1, 2]]; // Vincenzo Librandi, Aug 10 2012

Crossrefs

Cf. A000040, A045344, A045372.

Sequence in context: A042797 A041649 A141533 * A154758 A156614 A355430

Adjacent sequences: A045388 A045389 A045390 * A045392 A045393 A045394

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved