login
A105912
Primes for which -40 is a primitive root.
1
3, 17, 29, 31, 43, 71, 73, 79, 83, 97, 101, 107, 109, 137, 149, 151, 191, 193, 227, 229, 233, 257, 269, 271, 283, 307, 311, 347, 349, 353, 359, 389, 421, 431, 433, 439, 443, 461, 467, 479, 509, 523, 541, 563, 577, 587, 593, 599, 617, 661, 673, 683, 701, 709, 719, 751, 787
OFFSET
1,1
MATHEMATICA
pr=-40; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
CROSSREFS
Sequence in context: A296925 A167806 A007348 * A249374 A106085 A172487
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 24 2005
STATUS
approved