1,1

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

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

Sequence in context: A013913 A069337 A022225 this_sequence A132660 A103808 A159462

Adjacent sequences: A114671 A114672 A114673 this_sequence A114675 A114676 A114677

nonn

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