A061730 Primes with 24 as smallest positive primitive root.

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

Vincenzo Librandi, Table of n, a(n) for n = 1..225

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

Cf. A001918, A001126, A019351.

Sequence in context: A237480 A081637 A010037 * A235076 A344944 A344945

Adjacent sequences: A061727 A061728 A061729 * A061731 A061732 A061733

Keyword

nonn

Author

Klaus Brockhaus, May 06 2001

Extensions

More terms from Robert G. Wilson v, May 11 2001

Status

approved