%I #8 Mar 02 2014 10:08:17
%S 1,2,6,22,84,350,525,1150,1652,2366,2996,6677,8140,8371,9084,11510,
%T 11825,27885,30694,43000,44988,45060,49585,172250,207194,312312,
%U 335634,364084,568575,887250,1183000,1588956,1799240,1829256,1913975,2455350,3523800,3678454
%N Numbers n such that n | Sigma_6(n) + Phi(n)^6.
%C sigma_6(n) is the sum of the 6th powers of the divisors of n (A013954).
%t Do[If[Mod[DivisorSigma[6, n]+EulerPhi[n]^6, n]==0, Print[n]], {n, 1, 10^5}]
%o (PARI) isok(n) = !((sigma(n, 6) + eulerphi(n)^6) % 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