OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..10000
EXAMPLE
n=35: phi(35)=24, sigma(35)=1+5+7+35=48, chowla(35)=12, quotient=2
MATHEMATICA
Do[s=EulerPhi[n]/(DivisorSigma[1, n]-n-1); If[ !PrimeQ[n]&&!PrimeQ[Sqrt[n]]&&IntegerQ[s], Print[n]], {n, 2, 100000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 26 2002
STATUS
approved