OFFSET
1,3
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
gg1[n_] := Sum[If[PowerMod[x, x, n] == Mod[1, n], 1, 0], {x, n}]; Array[gg1, 200]
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Mar 09 2014
STATUS
approved