%I#10 2014年3月2日12:35:51
%S 1,2,12,54,76,90216423531621216622412772297647525154,
%电话:54005481626472907344901891449470955514094149041949421222,
%电话:23780258482832334830349113482204012248768490795578259400
%N对N进行编号,使N|sigma_9(N)-phi(N)^9。
%Cσ_9(n)是n(A013957)的除数的9次幂之和。
%t Do[If[Mod[DivisorSigma[9,n]-EulerPhi[n]^9,n]==0,Print[n]],{n,1,10^5}]
%o(PARI)isok(n)=!((sigma(n,9)-eulerphi(n)^9)%n);\\_Michel Marcus,2014年3月2日
%K nonn公司
%O 1,2号机组
%A _Robert G.Wilson v_,2000年6月9日
%E定义由米歇尔·马库斯修正,2014年3月2日
|