|
| |
|
|
A061335
|
|
Primes with 23 as smallest positive primitive root.
|
|
33
|
|
|
|
2161, 8761, 10559, 12479, 12911, 13729, 15601, 18121, 19009, 21787, 31249, 35281, 37321, 42841, 43201, 49921, 50951, 51239, 52711, 53231, 67489, 70249, 79801, 88919, 90121, 90289, 91393, 97919, 106129, 106391, 106681, 107881, 108529
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n = 1..1000
|
|
|
MATHEMATICA
|
Prime[ Select[ Range[12100], PrimitiveRoot[ Prime[ # ] ] == 23 & ] ]
Select[ Prime@Range@10880, PrimitiveRoot@# == 23 &] (* Robert G. Wilson v, May 11 2001 *)
|
|
|
PROG
|
(PARI) is(n)=my(v=[2, 3, 5, 7, 11, 13, 17, 19, 6, 10, 12, 14, 15, 18, 20, 21, 22]); if(!isprime(n) || n<99, return(0)); for(i=1, #v, if(znorder(Mod(v[i], n))==n-1, return(0))); znorder(Mod(23, n))==n-1 \\ Charles R Greathouse IV, Apr 27 2015
|
|
|
CROSSREFS
|
Cf. A001918, A001126, A019350.
Sequence in context: A253715 A205331 A154822 * A159238 A289725 A116074
Adjacent sequences: A061332 A061333 A061334 * A061336 A061337 A061338
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Klaus Brockhaus, Apr 25 2001
|
|
|
STATUS
|
approved
|
| |
|
|
