[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
login
A061733
Primes with 29 as smallest positive primitive root.
1
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
MATHEMATICA
Prime[ Select[ Range[22000], PrimitiveRoot[ Prime[ # ] ] == 29 & ] ]
(* or *)
Select[ Prime@Range@22000, PrimitiveRoot@# == 29 &] (* Robert G. Wilson v, May 11 2001 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, May 06 2001
STATUS
approved