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=29; Select[Prime[Range], MultiplicativeOrder[pr, # ] == #-1 &]
Sequence in context: A228520 A091734 A038902 * A033203 A051100 A051088
Adjacent sequences: A019352 A019353 A019354 * A019356 A019357 A019358
David W. Wilson