OFFSET
1,2
LINKS
Tomohiro Yamada, An analog of perfect numbers involving the unitary totient function, arXiv:1806.00647 [math.NT], 2018. See (2) on p. 2.
PROG
(PARI) uphi(n) = my(f=factor(n)~); prod(i=1, #f, f[1, i]^f[2, i]-1);
isok(n) = frac(n/uphi(n)) == 0;
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Michel Marcus, Sep 20 2018
STATUS
approved