A061733 Primes with 29 as smallest positive primitive root.

15791, 18191, 20231, 33049, 33289, 33601, 35279, 38639, 46489, 47041, 47881, 61681, 63839, 64279, 76831, 87481, 87911, 89041, 110569, 120121, 130729, 143263, 147671, 159769, 193751, 199559, 210961, 217439, 217561, 231961, 238681, 240769

Offset: 1

Author

Klaus Brockhaus, May 06 2001

Keywords

• nonn

Links

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

Crossrefs

Cf. A001918, A001126, A019355.

Programs

Mathematica

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