OFFSET
1,1
COMMENTS
Primes p such that p^4 = 1 mod 210. - Gary Detlefs, Dec 29 2011
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
KEYWORD
nonn,easy
AUTHOR
STATUS
approved