OFFSET
1,2
PROG
(PARI) f(n) = sumdiv(n, d, Mod(d, n)^d == Mod(-d, n)^d); \\ A385662
a(n) = my(k=1); while (f(k) != n, k++); k; \\ Michel Marcus, Aug 06 2025
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Aug 06 2025
STATUS
approved
