%I #10 Oct 21 2013 15:32:45
%S 6,37716,58710,120930,1269432,2663850,3349170,3995244,4353426,5468424,
%T 7191072,7437960,7564128,7613892,8354610,8810490,10309410,11917620,
%U 13573500,21970980,23877450,24712350,38801790,49394556,56208264,56809578,57339150,66379170,77966616,91549710,93657564
%N Numbers n such that phi(sigma(n)) + sigma(phi(n)) is the mean value of phi(n) and sigma(n).
%H Donovan Johnson, <a href="/A230238/b230238.txt">Table of n, a(n) for n = 1..111</a> (terms < 3*10^10)
%t Do[If[DivisorSigma[1,n]+EulerPhi[n]==2(EulerPhi[DivisorSigma[1,n]]+DivisorSigma[1,EulerPhi[n]]),Print[n]],{n,100000000}]
%Y Cf. A000010, A000203, A062401, A062402, A230237.
%K nonn
%O 1,1
%A _Farideh Firoozbakht_, Oct 16 2013