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=3; Select[Prime[Range], MultiplicativeOrder[pr, # ] == #-1 &]
Sequence in context: A101150 A174281 A038875 * A045356 A158526 A146364
Adjacent sequences: A019331 A019332 A019333 * A019335 A019336 A019337
David W. Wilson