%I #10 Mar 03 2014 02:04:41
%S 1,2,6,84,437,1366,2390,5676,47471,75972,82321,99012,3015760,5667660,
%T 7881348,11498604,26118614,26447827,114092460,115426140,121197447,
%U 207767052,257342460,463216428,567155020,658286388,758280060,1013513752,1261438248,1762803253
%N Numbers n such that n | sigma_12(n) + phi(n)^12.
%C sigma_12(n) is the sum of the 12th powers of the divisors of n (A013960).
%t Do[If[Mod[DivisorSigma[12, n]+EulerPhi[n]^12, n]==0, Print[n]], {n, 1, 10^5}]
%o (PARI) isok(n) = !((sigma(n, 12) + eulerphi(n)^12) % 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