OFFSET
1,1
COMMENTS
Conjecture: For all n, a(n) > 0.
If a(673) > 0 then a(673) > 10^10.
LINKS
José María Grau Ribas, Table of n, a(n) for n = 1..672
MATHEMATICA
PROG
(PARI) a(n) = my(k=n+1); while (sum(i=1, k , Mod(i, k)^eulerphi(k)) != n, k++); k; \\ Michel Marcus, Sep 28 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Sep 26 2021
STATUS
approved