A045472 Primes congruent to {1, 6} mod 7.

13, 29, 41, 43, 71, 83, 97, 113, 127, 139, 167, 181, 197, 211, 223, 239, 251, 281, 293, 307, 337, 349, 379, 419, 421, 433, 449, 461, 463, 491, 503, 547, 587, 601, 617, 631, 643, 659, 673, 701, 727, 743, 757, 769

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• easy

Comments

Primes p such that p^4 = 1 mod 210. - Gary Detlefs, Dec 29 2011

Primes in A047336, also in A113801. - Reinhard Zumkeller, Jan 07 2012

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A042989 (complement), A010051.

Programs

Haskell

a045472 n = a045472_list !! (n-1)
a045472_list = [x | x <- a047336_list, a010051 x == 1]
-- Reinhard Zumkeller, Jan 07 2012

Magma

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

Mathematica

Select[Prime[Range[200]],MemberQ[{1,6},Mod[#,7]]&] (* Vincenzo Librandi, Aug 13 2012 *)

PARI

select(p->abs(centerlift(Mod(p,7)))==1, primes(100)) \\ Charles R Greathouse IV, Mar 17 2022

Formula

a(n) ~ 3n log n. - Charles R Greathouse IV, Mar 17 2022