OFFSET
1,2
PROG
(PARI) f(n) = sumdiv(n, d, Mod(-d, n)^d == d); \\ A384854
a(n) = my(k=1); while(f(k) != n, k++); k; \\ Michel Marcus, Jun 18 2025
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Michel Marcus and Juri-Stepan Gerasimov, Jun 17 2025
EXTENSIONS
a(8)-a(11) from Michel Marcus, Jun 18 2025
a(12)-a(14) from Jinyuan Wang, Jul 01 2025
STATUS
approved
