|
| |
|
|
A114664
|
|
Primes with 47 as smallest positive primitive root.
|
|
1
|
|
|
|
275641, 374761, 534601, 568921, 687961, 877321, 931921, 1062311, 1112471, 1126441, 1360631, 1371841, 1373761, 1736881, 2074801, 2097169, 2147473, 2152921, 2202601, 2214001, 2263801, 2427769, 2616071, 2652841, 2698921
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..25.
|
|
|
MATHEMATICA
|
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@220000, PrimitiveRoot@# == 47 &]
Select[Prime[Range[200000]], PrimitiveRoot[#, 1]==47&] (* PrimitiveRoot is now part of Mathematica's core language so there is no need to load NumberTheory`NumberTheoryFunctions first any longer *) (* Harvey P. Dale, Jul 16 2016 *)
|
|
|
CROSSREFS
|
Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.
Sequence in context: A250509 A164520 A274351 * A069372 A157839 A237808
Adjacent sequences: A114661 A114662 A114663 * A114665 A114666 A114667
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Robert G. Wilson v, Dec 21 2005
|
|
|
STATUS
|
approved
|
| |
|
|
