login
A019365
Primes with primitive root 40.
1
7, 11, 17, 19, 23, 29, 47, 59, 73, 97, 101, 103, 109, 131, 137, 139, 149, 167, 179, 193, 229, 233, 257, 263, 269, 331, 349, 353, 383, 389, 421, 433, 461, 463, 491, 499, 503, 509, 541, 571, 577, 593, 607, 617, 619, 659, 661, 673, 701, 709, 727, 743, 829, 857, 859, 863
OFFSET
1,1
MATHEMATICA
pr=40; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
CROSSREFS
Sequence in context: A106070 A346991 A038880 * A191055 A078497 A274505
KEYWORD
nonn
STATUS
approved