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

1, 2, 3, 4, 6, 9, 12, 27, 34, 42, 68, 81, 84, 102, 172, 204, 243, 348, 578, 639, 714, 729, 837, 1156, 1428, 1431, 1734, 1878, 1972, 2187, 3468, 4077, 4187, 4326, 5213, 6093, 6561, 9826, 9962, 12138, 16014, 16878, 18212, 19652, 19683, 21627, 24276, 29478

Offset: 1

Author

Robert G. Wilson v, Aug 25 2000

Keywords

• nonn

Crossrefs

Cf. A001555.

Programs

Mathematica

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} ]