A061741 Primes with 39 as smallest positive primitive root.

166031, 264961, 325249, 388081, 450071, 462841, 543601, 735271, 816649, 823201, 915049, 1063561, 1155151, 1414081, 1415929, 1554169, 1704271, 1884121, 1952449, 2181271, 2215921, 2290831, 2477521, 2499421, 2514961, 2585647, 2633689

Offset: 1

Author

Klaus Brockhaus, May 06 2001

Keywords

• nonn

Links

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

Crossrefs

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

Programs

Mathematica

Select[ Prime@Range@221000, PrimitiveRoot@# == 39 &] (* Robert G. Wilson v, May 11 2001 *)

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

Extensions

More terms from Robert G. Wilson v, May 11 2001 and Dec 21 2005