A061741 - OEIS

%I #15 Feb 01 2016 02:54:34

%S 166031,264961,325249,388081,450071,462841,543601,735271,816649,

%T 823201,915049,1063561,1155151,1414081,1415929,1554169,1704271,

%U 1884121,1952449,2181271,2215921,2290831,2477521,2499421,2514961,2585647,2633689

%N Primes with 39 as smallest positive primitive root.

%H Vincenzo Librandi, <a href="/A061741/b061741.txt">Table of n, a(n) for n = 1..660</a>

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

%o (PARI) is(n)=if(n<9||!isprime(n), return(0)); for(k=2,38,if(znorder(Mod(k,n))==n-1, return(0))); znorder(Mod(39,n))==n-1 \\ _Charles R Greathouse IV_, Apr 28 2015

%Y Cf. A001918, A019364, A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.

%K nonn

%O 1,1

%A _Klaus Brockhaus_, May 06 2001

%E More terms from _Robert G. Wilson v_, May 11 2001 and Dec 21 2005