|
Search: id:A056750
|
|
|
| A056750 |
|
Numbers n such that n | 7^n + 6^n + 5^n + 4^n + 3^n + 2^n + 1^n. |
|
+0
1
|
|
| 1, 2, 4, 7, 10, 14, 28, 49, 50, 70, 98, 196, 209, 250, 343, 350, 490, 539, 668, 686, 1250, 1309, 1372, 1519, 1750, 1919, 2401, 2450, 2690, 2849, 3430, 4450, 4802, 6250, 8750, 9212, 9590, 9604, 9982, 10717, 12250, 15698, 16807, 17150, 18790, 24010, 31250
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
Do[ If[ Mod[ 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. A001554.
Sequence in context: A094281 A076101 A079963 this_sequence A095116 A027384 A022939
Adjacent sequences: A056747 A056748 A056749 this_sequence A056751 A056752 A056753
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 25 2000
|
|
|
Search completed in 0.002 seconds
|
