Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 4500 articles have referenced us, often saying "we would not have discovered this result without the OEIS".
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Index entries for primes by primitive root
pr=22; Select[Prime[Range], MultiplicativeOrder[pr, # ] == #-1 &]
Sequence in context: A167915 A019373 A140568 * A226627 A124873 A129745
Adjacent sequences: A019346 A019347 A019348 * A019350 A019351 A019352
David W. Wilson