login
A019376
Primes with primitive root 52.
1
5, 7, 11, 19, 31, 37, 41, 47, 59, 71, 83, 109, 137, 149, 151, 163, 167, 193, 197, 227, 241, 271, 281, 293, 307, 317, 353, 359, 383, 397, 401, 409, 431, 457, 461, 479, 487, 509, 557, 577, 587, 593, 619, 643, 683, 691, 709, 733, 743, 761, 769, 773, 811, 821, 827, 839, 853
OFFSET
1,1
MATHEMATICA
pr=52; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
CROSSREFS
Sequence in context: A045440 A023235 A118918 * A159080 A349821 A349820
KEYWORD
nonn
STATUS
approved