OFFSET
1,2
EXAMPLE
n=97002, n-phi[n]=66666
MATHEMATICA
ta={{0}}; Do[s=Length[Union[IntegerDigits[n-EulerPhi[n]]]]; If[Equal[s, 1]&&!PrimeQ[n], Print[{n, n-EulerPhi[n]}]; ta=Append[ta, n]], {n, 1, 100000}]; ta=Delete[ta, 1]; ta-EulerPhi[ta]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Labos Elemer, Oct 22 2004
STATUS
approved