A045461 Primes congruent to {0, 1, 4} mod 7.

7, 11, 29, 43, 53, 67, 71, 109, 113, 127, 137, 151, 179, 193, 197, 211, 239, 263, 277, 281, 337, 347, 379, 389, 421, 431, 449, 463, 487, 491, 547, 557, 571, 599, 613, 617, 631, 641, 659, 673, 683, 701, 739, 743

Offset

1,1

Comments

The same as A045469 but without the initial 7 (the only prime congruent to 0 mod 7).

Links

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

Formula

a(n) ~ 3 n log n. [Charles R Greathouse IV, Feb 20 2012]

Mathematica

Select[Prime[Range[120]], MemberQ[{0, 1, 4}, Mod[#, 7]] &] (* From Alonso del Arte based on Orlovsky's program for A042992, Feb 18 2012 *)

Prog

(PARI) forprime(p=2, 1e3, if((n->n<2||n==4)(p%7), print1(p", "))) \\ Charles R Greathouse IV, Feb 20 2012
(Magma) [ p: p in PrimesUpTo(1000) | p mod 7 in {0, 1, 4} ]; // Vincenzo Librandi, Aug 13 2012

Crossrefs

Cf. A045312 (complement).

Sequence in context: A110572 A023254 A129807 * A153867 A153325 A109907

Adjacent sequences: A045458 A045459 A045460 * A045462 A045463 A045464

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved