1,1

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

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

Sequence in context: A017285 A017393 A017657 this_sequence A120409 A083633 A043649

Adjacent sequences: A114666 A114667 A114668 this_sequence A114670 A114671 A114672

nonn

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