%I M5034 #21 Oct 10 2019 12:53:46
%S 17,29,61,97,109,113,149,181,193,229,233,257,269,313,337,389,433,461,
%T 509,541,577,593,701,709,821,857,937,941,953,977,1021,1033,1069,1097
%N Primes with both 10 and -10 as primitive root.
%D M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 864.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
%H R. G. Wilson, V, <a href="/A005596/a005596.pdf">Letter to N. J. A. Sloane, Aug. 1993</a>
%H <a href="/index/Pri#primes_root">Index entries for primes by primitive root</a>
%t pr=10; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == MultiplicativeOrder[-pr, # ] == #-1 &]
%t Select[Prime[Range[5,200]],PrimitiveRoot[#,10]==10&&PrimitiveRoot[#,#-10] == #-10&] (* _Harvey P. Dale_, Oct 10 2019 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_, _Mira Bernstein_, _Robert G. Wilson v_