A057253 Numbers n such that n | 9^n + 8^n + 7^n + 6^n + 5^n.

1, 5, 7, 25, 35, 49, 125, 175, 245, 343, 625, 875, 1225, 1715, 2401, 3125, 3415, 3773, 4375, 6125, 8575, 11725, 12005, 15625, 16807, 17003, 21875, 30625, 36875, 42875, 46067, 60025, 78125, 84035, 91475, 109375, 112945, 117649, 153125, 193109

Offset

1,2

Links

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

Mathematica

Select[ Range[ 10^5 ], Mod[ PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ], # ] == 0 & ]

Crossrefs

Sequence in context: A056717 A072370 A057490 * A003595 A018697 A018319

Adjacent sequences: A057250 A057251 A057252 * A057254 A057255 A057256

Keyword

nonn

Author

Robert G. Wilson v, Sep 21 2000

Status

approved