login
A061730
Primes with 24 as smallest positive primitive root.
33
533821, 567631, 672181, 843781, 1035301, 1512421, 1929061, 2260501, 2839621, 2894431, 2896741, 4466221, 5428231, 5970511, 6170911, 9340501, 9730711, 9920821, 10635661, 10684759, 10720711, 10870471, 11425261, 11591581
OFFSET
1,1
LINKS
MATHEMATICA
Prime[ Select[ Range[ 10^6], PrimitiveRoot[ Prime[ # ] ] == 24 & ] ]
(* or *)
Select[ Prime@Range@1000000, PrimitiveRoot@# == 24 &] (* Robert G. Wilson v, May 11 2001 *)
PROG
(PARI) is(n)=if(n<9||!isprime(n), return(0)); for(k=2, 23, if(znorder(Mod(k, n))==n-1, return(0))); znorder(Mod(24, n))==n-1 \\ Charles R Greathouse IV, Apr 28 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, May 06 2001
EXTENSIONS
More terms from Robert G. Wilson v, May 11 2001
STATUS
approved