OFFSET
3,1
COMMENTS
a(47) is greater than 4*10^8.
MATHEMATICA
a[n_]:=(For[m=1, DivisorSigma[1, m]+EulerPhi[m]!=n EulerPhi[m], m++ ]; m); Do[Print[a[n]], {n, 3, 46}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Farideh Firoozbakht, Oct 30 2008
STATUS
approved