OFFSET
1,1
COMMENTS
Fixed points of the transform n -> sigma(n-phi(n)) - n + phi(n).
EXAMPLE
phi(222) = 72 and 222 - 72 = 150; sigma(150) = 372 and 372 - 150 = 222.
MAPLE
with(numtheory); P:=proc(q) local n; k:=0;
for n from 1 to q do if 2*n=sigma(n-phi(n))+phi(n) then print(n);
fi; od; end: P(10^9);
PROG
(PARI) isok(n) = (x = n - eulerphi(n)) && (n == sigma(x) - x); \\ Michel Marcus, Mar 28 2014
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Paolo P. Lava, Mar 27 2014
EXTENSIONS
a(17)-a(21) from Michel Marcus, Mar 28 2014
STATUS
approved