Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 5000 articles have referenced us, often saying "we discovered this result with the help of 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