A057266 Numbers n such that n | 10^n + 9^n + 8^n + 7^n + 6^n + 5^n + 4^n.

1, 7, 49, 343, 539, 959, 1309, 2401, 7889, 16807, 18851, 78449, 117649, 142991, 590773, 814247, 823543

Offset

1,2

Links

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

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

Adjacent sequences: A057263 A057264 A057265 * A057267 A057268 A057269

Keyword

nonn

Author

Robert G. Wilson v, Sep 22 2000

Status

approved