OFFSET
1,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
sk[n_]:=Module[{k=1}, While[PowerMod[k, n, n]!=n-k, k++]; k]; Array[sk, 100] (* Harvey P. Dale, Jun 29 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition, offset, and data corrected. Thanks to Harvey P. Dale for pointing out that something was wrong. - N. J. A. Sloane, Jun 29 2023
STATUS
approved