Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A057266
Numbers n such that n | 10^n + 9^n + 8^n + 7^n + 6^n + 5^n + 4^n.
0
1, 7, 49, 343, 539, 959, 1309, 2401, 7889, 16807, 18851, 78449, 117649, 142991, 590773, 814247, 823543
OFFSET
1,2
MATHEMATICA
Select[ Range[ 10^6 ], Mod[ PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ], # ] == 0 & ]
Select[Range[10^6], Mod[Plus@@Table[PowerMod[i, #, #], {i, 4, 10}], #]==0&] (* Harvey P. Dale, Nov 07 2017 *)
CROSSREFS
Sequence in context: A171281 A328086 A216129 * A057833 A014949 A228738
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 22 2000
STATUS
approved