login
A045461
Primes congruent to {0, 1, 4} mod 7.
2
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
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
KEYWORD
nonn,easy
STATUS
approved