1,1

(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@767000, PrimitiveRoot@# == 59 &]

Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.

Adjacent sequences: A114672 A114673 A114674 this_sequence A114676 A114677 A114678

Sequence in context: A134615 A083613 A083614 this_sequence A102501 A015346 A100383

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 21 2005