A057252 Numbers n such that n | 10^n + 9^n + 8^n + 7^n + 6^n.

1, 2, 5, 6, 10, 22, 25, 30, 50, 66, 102, 125, 150, 242, 250, 374, 589, 625, 726, 750, 925, 1250, 2094, 2222, 2550, 2662, 2705, 3125, 3450, 3625, 3737, 3750, 5246, 6250, 7458, 7986, 11875, 12342, 15594, 15625, 18750, 19865, 28250, 28750, 29282, 29550

Offset

1,2

Links

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

Mathematica

Select[ Range[ 10^5 ], Mod[ PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ], # ] == 0 & ]
Select[Range[30000], Divisible[Total[Range[6, 10]^#], #]&] (* Harvey P. Dale, Aug 31 2011 *)

Crossrefs

Sequence in context: A274037 A227975 A123645 * A057250 A248051 A056643

Adjacent sequences: A057249 A057250 A057251 * A057253 A057254 A057255

Keyword

nonn

Author

Robert G. Wilson v, Sep 21 2000

Status

approved