|
|
A291869
|
|
Numbers n such that sigma(phi(n)) - phi(n) = n + phi(sigma(n)-n); that is, f(g(n)) - g(f(n)) = n where f = A001065 and g = A000010.
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
52298 is a term because phi(sigma(52298) - 52298) = phi(27382) = 13690, sigma(phi(52298)) - phi(52298) = sigma(25740) - 25740 = 65988 and 65988 - 13690 = 52298.
|
|
PROG
|
(PARI) a001615(n) = sigma(n)-n;
isok(n) = a001615(eulerphi(n))==n+eulerphi(a001615(n));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|