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

5, 7, 11, 13, 19, 41, 47, 53, 61, 67, 83, 89, 97, 103, 109, 131, 137, 139, 151, 167, 173, 179, 181, 193, 223, 229, 251, 257, 263, 271, 277, 293, 307, 313, 347, 349, 383, 389, 397, 419, 431, 433, 439, 461, 467, 487

Offset

1,1

Links

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

Mathematica

Select[Prime[Range[200]], MemberQ[{0, 4, 5, 6}, Mod[#, 7]]&] (* Vincenzo Librandi, Aug 13 2012 *)
Select[Flatten[{0, 4, 5, 6}+#&/@(7Range[0, 70])], PrimeQ] (* or *) Select[LinearRecurrence[ {1, 0, 0, 1, -1}, {0, 4, 5, 6, 7}, 300], PrimeQ] (* Harvey P. Dale, Jul 22 2024 *)

Prog

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

Crossrefs

Cf. A000040.

Sequence in context: A154275 A339347 A167460 * A093078 A314298 A314299

Adjacent sequences: A045436 A045437 A045438 * A045440 A045441 A045442

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved