login
A056751
Numbers n such that n | 8^n + 7^n + 6^n + 5^n + 4^n + 3^n + 2^n + 1^n.
0
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,2
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} ]
CROSSREFS
Cf. A001555.
Sequence in context: A178479 A057285 A057287 * A189035 A137446 A240028
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 25 2000
STATUS
approved