|
| |
|
|
A114682
|
|
Primes with 67 as smallest positive primitive root.
|
|
0
|
|
|
|
3384481, 4280329, 4555151, 5334313, 6915191, 7265281, 7586401, 7761121, 9240001, 10483201, 10859689, 11081641, 11314801, 11682889, 12002761, 12426481, 12493321, 14000281, 15210001, 18410831, 19587481, 21475609, 21573191
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..23.
|
|
|
FORMULA
|
Equals { p in A000040 | A001918(p) = 67 }. - M. F. Hasler, Feb 22 2012
|
|
|
MATHEMATICA
|
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@1450000, PrimitiveRoot@# == 67 &]
Select[Prime[Range[1450000]], PrimitiveRoot[#]==67&] (* Harvey P. Dale, Feb 22 2012 *)
|
|
|
PROG
|
(PARI) /* The following assumes that znprimroot() returns the smallest primitive root */ is_A114682(n)={ znprimroot(n)==67 } \\ M. F. Hasler, Feb 22 2012
|
|
|
CROSSREFS
|
Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.
Sequence in context: A036472 A206168 A206382 * A157106 A123201 A258517
Adjacent sequences: A114679 A114680 A114681 * A114683 A114684 A114685
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Robert G. Wilson v, Dec 21 2005
|
|
|
STATUS
|
approved
|
| |
|
|
