|
|
A061323
|
|
Primes with 10 as smallest positive primitive root.
|
|
33
|
|
|
313, 337, 1021, 1297, 1783, 1873, 2137, 2971, 3221, 3313, 4051, 4339, 5233, 5531, 5743, 6073, 6301, 6337, 6553, 6793, 7177, 7753, 8233, 9109, 9697, 9829, 9931, 10273, 10781, 11059, 11149, 11257, 11617, 11941, 11971, 12143, 12457, 12577
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Prime[ Select[ Range[2000], PrimitiveRoot[ Prime[ # ] ] == 10 & ] ]
|
|
PROG
|
(PARI) is(n)=n>9 && isprime(n) && znorder(Mod(2, n))<n-1 && znorder(Mod(3, n))<n-1 && znorder(Mod(5, n))<n-1 && znorder(Mod(7, n))<n-1 && znorder(Mod(6, n))<n-1 && znorder(Mod(10, n))==n-1 \\ Charles R Greathouse IV, Apr 24 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|