OFFSET
1,1
COMMENTS
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[p = Prime[n]; k = 2; While[s = Select[Range[p/2], PowerMod[k, #, p] == p - 1 &, 1]; s == {}, k++]; k, {n, 100}]
KEYWORD
nonn
AUTHOR
T. D. Noe, Apr 15 2014
STATUS
approved