login
Numbers n such that n | sigma_12(n) + phi(n)^12.
0

%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