A056751 - OEIS

%I #3 Mar 30 2012 17:30:26

%S 1,2,3,4,6,9,12,27,34,42,68,81,84,102,172,204,243,348,578,639,714,729,

%T 837,1156,1428,1431,1734,1878,1972,2187,3468,4077,4187,4326,5213,6093,

%U 6561,9826,9962,12138,16014,16878,18212,19652,19683,21627,24276,29478

%N Numbers n such that n | 8^n + 7^n + 6^n + 5^n + 4^n + 3^n + 2^n + 1^n.

%t Do[ If[ Mod[ PowerMod[ 8, n, n ] + PowerMod[ 7, n, n ] + PowerMod[ 6, n, n ] + PowerMod[ 5, n, n ] + PowerMod[ 4, n, n ] + PowerMod[ 3, n, n ] + PowerMod[ 2, n, n ] + 1, n ] == 0, Print[ n ] ], {n, 1, 10^6} ]

%Y Cf. A001555.

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Aug 25 2000