A061730 - OEIS

%I #15 Feb 01 2016 02:53:23

%S 533821,567631,672181,843781,1035301,1512421,1929061,2260501,2839621,

%T 2894431,2896741,4466221,5428231,5970511,6170911,9340501,9730711,

%U 9920821,10635661,10684759,10720711,10870471,11425261,11591581

%N Primes with 24 as smallest positive primitive root.

%H Vincenzo Librandi, <a href="/A061730/b061730.txt">Table of n, a(n) for n = 1..225</a>

%t Prime[ Select[ Range[ 10^6], PrimitiveRoot[ Prime[ # ] ] == 24 & ] ]

%t (* or *)

%t Select[ Prime@Range@1000000, PrimitiveRoot@# == 24 &] (* _Robert G. Wilson v_, May 11 2001 *)

%o (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

%Y Cf. A001918, A001126, A019351.

%K nonn

%O 1,1

%A _Klaus Brockhaus_, May 06 2001

%E More terms from _Robert G. Wilson v_, May 11 2001