login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes with primitive root 32.
2

%I #31 Aug 21 2021 13:31:38

%S 3,5,13,19,29,37,53,59,67,83,107,139,149,163,173,179,197,227,269,293,

%T 317,347,349,373,379,389,419,443,467,509,523,547,557,563,587,613,619,

%U 653,659,677,709,757,773,787,797,827,829,853,859,877,883,907,947,1019,1109,1117

%N Primes with primitive root 32.

%H Vincenzo Librandi, <a href="/A019358/b019358.txt">Table of n, a(n) for n = 1..1000</a>

%H <a href="/index/Pri#primes_root">Index entries for primes by primitive root</a>

%t Select[Prime[Range[200]], MultiplicativeOrder[32, # ] == # - 1 &]

%t Join[{3,5,13,19,29},Select[Prime[Range[10,200]],PrimitiveRoot[#,32]==32&]] (* _Harvey P. Dale_, Aug 21 2021 *)

%K nonn,easy

%O 1,1

%A _David W. Wilson_