OFFSET
1,2
MATHEMATICA
a[n_]:=CountDistinct[Table[PowerMod[x-1, n, n^5], {x, 0, n^5-1}]]; Array[a, 38] (* Stefano Spezia, Aug 24 2023 *)
PROG
(PARI) a(n) = #Set(vector(n^5, x, Mod(x-1, n^5)^n));
(Python)
def A365102(n): return len({pow(x, n, n**5) for x in range(n**5)}) # Chai Wah Wu, Aug 23 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Albert Mukovskiy, Aug 22 2023
STATUS
approved