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
pr=-6; Select[Prime[Range], MultiplicativeOrder[pr, # ] == #-1 &]
Sequence in context: A268593 A175873 A167802 * A054476 A099184 A098095
Adjacent sequences: A105875 A105876 A105877 * A105879 A105880 A105881
N. J. A. Sloane, Apr 24 2005