|
| |
|
|
A114670
|
|
Primes with 54 as smallest positive primitive root.
|
|
1
| | |
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t = {}; Do[ If[ PrimitiveRoot[ Prime@n] == 54, AppendTo[t, n]; Print@Prime@n], {n, 110223179}]; Prime@t
|
|
|
CROSSREFS
| Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.
Sequence in context: A186590 A186599 A186591 * A092776 A034916 A172726
Adjacent sequences: A114667 A114668 A114669 * A114671 A114672 A114673
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 21 2005
|
|
|
EXTENSIONS
| a(2)-a(5) from Tomas Oliveira e Silva (tos(AT)det.ua.pt) and Ray Chandler (rayjchandler(AT)sbcglobal.net), Jan 05 2006
|
| |
|
|
