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

Author

N. J. A. Sloane

Keywords

• nonn
• easy

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

Crossrefs

Cf. A045312 (complement).

Programs

Magma

[ p: p in PrimesUpTo(1000) | p mod 7 in {0, 1, 4} ]; // Vincenzo Librandi, Aug 13 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 *)

PARI

forprime(p=2,1e3,if((n->n<2||n==4)(p%7),print1(p", "))) \\ Charles R Greathouse IV, Feb 20 2012

Formula

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