OFFSET
1,1
EXAMPLE
MATHEMATICA
Do[r=EulerPhi[n]; d=DivisorSigma[0, n]; u=n-r-d+1; If[Greater[r, u]&&Greater[u, d], Print[n, {d, r, u}]], {n, 1, 1000}]
PROG
(PARI) is(n)=my(r=eulerphi(n), d=numdiv(n), u=n-r-d+1); r>u && u>d \\ Charles R Greathouse IV, Feb 21 2013
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Labos Elemer, May 07 2003
STATUS
approved