A045460 Primes congruent to {0, 4, 6} mod 7.

7, 11, 13, 41, 53, 67, 83, 97, 109, 137, 139, 151, 167, 179, 181, 193, 223, 251, 263, 277, 293, 307, 347, 349, 389, 419, 431, 433, 461, 487, 503, 557, 571, 587, 599, 601, 613, 641, 643, 683, 727, 739, 769, 797

Offset

1,1

Links

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

Mathematica

Select[Prime[Range[200]], MemberQ[{0, 4, 6}, Mod[#, 7]]&] (* Vincenzo Librandi, Aug 13 2012 *)
Select[Flatten[#+{0, 4, 6}&/@Range[7, 1000, 7]], PrimeQ] (* Harvey P. Dale, Dec 14 2019 *)

Prog

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

Crossrefs

Cf. A045313 (complement).

Sequence in context: A322172 A330699 A084457 * A334092 A054299 A116442

Adjacent sequences: A045457 A045458 A045459 * A045461 A045462 A045463

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved