login
A007349
Primes with both 10 and -10 as primitive root.
(Formerly M5034)
1
17, 29, 61, 97, 109, 113, 149, 181, 193, 229, 233, 257, 269, 313, 337, 389, 433, 461, 509, 541, 577, 593, 701, 709, 821, 857, 937, 941, 953, 977, 1021, 1033, 1069, 1097
OFFSET
1,1
REFERENCES
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.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
MATHEMATICA
pr=10; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == MultiplicativeOrder[-pr, # ] == #-1 &]
Select[Prime[Range[5, 200]], PrimitiveRoot[#, 10]==10&&PrimitiveRoot[#, #-10] == #-10&] (* Harvey P. Dale, Oct 10 2019 *)
CROSSREFS
Sequence in context: A190556 A241485 A089629 * A154616 A196938 A225943
KEYWORD
nonn
STATUS
approved