1,1

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

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

Adjacent sequences: A114661 A114662 A114663 this_sequence A114665 A114666 A114667

Sequence in context: A013998 A114663 A128479 this_sequence A069372 A043601 A043867

nonn

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