login
A057252
Numbers n such that n | 10^n + 9^n + 8^n + 7^n + 6^n.
0
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
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 21 2000
STATUS
approved