A057251 Numbers n such that n | 11^n + 10^n + 9^n + 8^n + 7^n.

1, 3, 5, 9, 15, 25, 27, 45, 75, 81, 87, 125, 135, 155, 225, 243, 265, 297, 375, 405, 625, 675, 729, 775, 1107, 1125, 1215, 1875, 2025, 2187, 3125, 3375, 3645, 3875, 4779, 4805, 5625, 6075, 6561, 9369, 9375, 10125, 10935, 12175, 12879, 15625, 16875

Offset

1,2

Links

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

Mathematica

Select[ Range[ 10^5 ], Mod[ PowerMod[ 11, #, # ] + PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ], # ] == 0 & ]
Select[Range[17000], Mod[Total[PowerMod[Range[7, 11], #, #]], #]==0&] (* Harvey P. Dale, Jul 20 2021 *)

Crossrefs

Sequence in context: A057259 A045599 A045604 * A015965 A231114 A056741

Adjacent sequences: A057248 A057249 A057250 * A057252 A057253 A057254

Keyword

nonn

Author

Robert G. Wilson v, Sep 21 2000

Status

approved