|
EXAMPLE
|
Below 30000000 only 5 composite numbers were found: C={4,15,900,902,28611063}, Chowla[C]={2,8,1920,504,17600976}, Phi[C]={2,8,240,504,17600976}, quotient[C]={1,1,8,1,1}.
|
|
MATHEMATICA
|
s2[x_] := DivisorSigma[1, x]-x-1 e0[x_] := EulerPhi[x] Do[s=s2[n]/e0[n]; If[IntegerQ[s]&&!PrimeQ[n], Print[{n, s2[n], e0[n], s}]], {n, 1, 1000000}]
|
