1,1
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@420000, PrimitiveRoot@# == 46 &]
Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.
Sequence in context: A075467 A137715 A013998 this_sequence A128479 A114664 A069372
Adjacent sequences: A114660 A114661 A114662 this_sequence A114664 A114665 A114666
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 21 2005
Search completed in 0.002 seconds