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,1

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

Formula

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

Mathematica

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

Prog

(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
(PARI) select(p->abs(centerlift(Mod(p, 7)))==1, primes(100)) \\ Charles R Greathouse IV, Mar 17 2022

Crossrefs

Cf. A042989 (complement), A010051.

Sequence in context: A160026 A141555 A036974 * A240950 A141293 A339956

Adjacent sequences: A045469 A045470 A045471 * A045473 A045474 A045475

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved