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

Links

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

Mathematica

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

Crossrefs

Cf. A001918, A001126, A019355.

Sequence in context: A235755 A235530 A116493 * A229643 A216180 A112450

Adjacent sequences: A061730 A061731 A061732 * A061734 A061735 A061736

Keyword

nonn

Author

Klaus Brockhaus, May 06 2001

Status

approved