%I #9 Mar 02 2014 10:09:01
%S 1,2,6,86,2033,9617,32052,439369,552012,708292,849660,1869252,2038140,
%T 2083244,2350089,2569210,2930460,3875508,4973090,7248671,13864156,
%U 23500890,25516264,45711708,57226685,109512060,112389732,197121708,240926532,386807715,395172531
%N Numbers n such that n | Sigma_8(n) + Phi(n)^8.
%C sigma_8(n) is the sum of the 8th powers of the divisors of n (A013956).
%t Do[If[Mod[DivisorSigma[8, n]+EulerPhi[n]^8, n]==0, Print[n]], {n, 1, 10^5}]
%o (PARI) isok(n) = !((sigma(n, 8) + eulerphi(n)^8) % n); \\ _Michel Marcus_, Mar 02 2014
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jun 09 2000
%E More terms from _Michel Marcus_, Mar 02 2014
|