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,1

Links

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A001918, A001126, A019350.

Sequence in context: A253715 A205331 A154822 * A159238 A289725 A116074

Adjacent sequences: A061332 A061333 A061334 * A061336 A061337 A061338

Keyword

nonn

Author

Klaus Brockhaus, Apr 25 2001

Status

approved