A019407 - OEIS

%I #19 May 13 2018 12:38:36

%S 2,11,13,29,47,53,67,79,83,103,109,127,131,137,139,157,181,211,223,

%T 257,263,269,293,307,311,353,373,383,401,431,433,439,443,449,463,467,

%U 479,499,521,523,557,563,577,587,593,619,641,647,691,709,719,727,733,773,797,809

%N Primes with primitive root 85.

%H Vincenzo Librandi, <a href="/A019407/b019407.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[85, #] == # - 1 &]

%K nonn

%O 1,1

%A _David W. Wilson_