1,1

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

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

Sequence in context: A030091 A128376 A128389 this_sequence A078518 A130001 A116228

Adjacent sequences: A114657 A114658 A114659 this_sequence A114661 A114662 A114663

nonn

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