A056745 Numbers n such that n | 6^n + 5^n + 4^n + 3^n + 2^n + 1^n.

1, 3, 7, 9, 21, 27, 49, 63, 77, 81, 147, 189, 243, 297, 343, 369, 441, 567, 729, 903, 1029, 1323, 1617, 1631, 1701, 2009, 2037, 2043, 2187, 2401, 2597, 2709, 3087, 3969, 5103, 6237, 6321, 6561, 7203, 8001, 8127, 9261, 10209, 11907, 13203, 15309, 15477

Offset

1,2

Links

Table of n, a(n) for n=1..47.

Mathematica

Do[ If[ Mod[ 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} ]
Select[Range[16000], Divisible[Total[Range[6]^#], #]&] (* Harvey P. Dale, Jun 06 2013 *)

Crossrefs

Cf. A001553.

Sequence in context: A057233 A125227 A057286 * A057263 A057493 A003594

Adjacent sequences: A056742 A056743 A056744 * A056746 A056747 A056748

Keyword

nonn

Author

Robert G. Wilson v, Aug 25 2000

Status

approved