|
%I #2 Mar 30 2012 17:37:44
%S 3,2,14,26,55,30,56,329,626,366,340,558,288,552,828,3496,6928,2430,
%T 81809,3920,3432,8680,48380,23430,2520,144020,435056,21384,728096,
%U 188376,11802175,97320,54057938,89700,349752,1143492,11286632,490752
%N a(n) is the smallest number m such that phi(m)+sigma(m)=n*pi(m).
%C a(47) is greater than 4*10^8.
%t a[n_]:=(For[m=1,DivisorSigma[1,m]+EulerPhi[m]!=n EulerPhi[m],m++ ];m);Do[Print[a[n]],{n,3,46}]
%Y Cf. A015704.
%K nonn
%O 3,1
%A _Farideh Firoozbakht_, Oct 30 2008
|
