Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #13 Mar 31 2024 15:04:39
%S 2,3,5,23,37,41,43,73,79,89,97,107,109,127,131,137,139,149,179,191,
%T 197,199,241,251,263,281,283,293,317,347,349,353,367,397,401,439,449,
%U 457,467,491,503,509,523,541,557,563,571,577,593,599,607,613,617,647,659,719,727
%N Primes for which -13 is a primitive root.
%C Primes p such that Legendre(-13,p) = -1. - _N. J. A. Sloane_, Dec 26 2017
%H Vincenzo Librandi, <a href="/A105885/b105885.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>
%p Load the Maple program HH given in A296920. Then run HH(-13, 200); This produces A296926, A296927, A296928, A105885. - _N. J. A. Sloane_, Dec 26 2017
%t pr=-13; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Apr 24 2005