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=28; Select[Prime[Range], MultiplicativeOrder[pr, # ] == #-1 &]
Sequence in context: A246374 A040113 A003632 * A230288 A124662 A226614
Adjacent sequences: A019351 A019352 A019353 * A019355 A019356 A019357
David W. Wilson