A061335 Primes with 23 as smallest positive primitive root.

2161, 8761, 10559, 12479, 12911, 13729, 15601, 18121, 19009, 21787, 31249, 35281, 37321, 42841, 43201, 49921, 50951, 51239, 52711, 53231, 67489, 70249, 79801, 88919, 90121, 90289, 91393, 97919, 106129, 106391, 106681, 107881, 108529, 115201, 123191, 126311

Offset: 1

Author

Klaus Brockhaus, Apr 25 2001

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A001918, A001126, A019350.

Programs

Mathematica

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

PARI

is(n)=my(v=[2, 3, 5, 7, 11, 13, 17, 19, 6, 10, 12, 14, 15, 18, 20, 21, 22]); if(!isprime(n) || n<99, return(0)); for(i=1,#v, if(znorder(Mod(v[i], n))==n-1, return(0))); znorder(Mod(23,n))==n-1 \\ Charles R Greathouse IV, Apr 27 2015