OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
q[n_] := Module[{k = n + 1}, While[! CoprimeQ[n, k] || PrimeQ[k] || PowerMod[n, k - 1, k] != 1, k++]; MoebiusMu[k] == -1]; Select[Range[2, 800, 2], q] (* Amiram Eldar, Mar 31 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jani Melik, Sep 25 2002
EXTENSIONS
Corrected and extended by D. S. McNeil, Mar 27 2009
Name corrected by Amiram Eldar, Mar 31 2024
STATUS
approved