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=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