|
| |
|
|
A114686
|
|
Primes with 71 as smallest positive primitive root.
|
|
31
| |
|
|
3659401, 8453041, 10319761, 14155681, 16391761, 18094561, 19616689, 20456329, 21677041, 22628929, 27275161, 32051881, 34228489, 37728601, 38884561, 39191881, 40101071, 40167241, 42163969, 47931601, 48461449, 49460161
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 71, AppendTo[t, n]; Print@Prime@n], {n, 3280000}]; Prime@t
|
|
|
PROG
| (PARI) is(n)=if(n<72, return(0)); for(k=2, 70, if(znorder(Mod(k, n))==n-1, return(0))); znorder(Mod(71, n))==n-1&&isprime(n) \\ Charles R Greathouse IV, Jul 19 2011
(PARI) is(n)=isprime(n)&&lift(znprimroot(n))==71 \\ relies on implementation details, may not always work
\\ Charles R Greathouse IV, Jul 19 2011
|
|
|
CROSSREFS
| Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.
Sequence in context: A195394 A053501 A090074 * A080658 A080656 A074914
Adjacent sequences: A114683 A114684 A114685 * A114687 A114688 A114689
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 21 2005
|
| |
|
|
