Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A056745
Numbers k such that k | 6^k + 5^k + 4^k + 3^k + 2^k + 1^k.
2
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
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 25 2000
STATUS
approved