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

1, 2, 3, 5, 9, 10, 15, 25, 27, 45, 46, 50, 75, 81, 99, 125, 135, 225, 243, 250, 375, 405, 485, 625, 675, 729, 1125, 1215, 1250, 1875, 2025, 2187, 2650, 3125, 3375, 3645, 4401, 4975, 5050, 5625, 6075, 6250, 6561, 8019, 9375, 10125, 10341, 10935, 11325

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..250

Mathematica

Select[ Range[ 1, 10^5 ], Mod[ PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ], # ] == 0 & ]
Select[Range[12000], Mod[Total[PowerMod[Range[6, 9], #, #]], #] == 0 &] (* Harvey P. Dale, Feb 06 2019 *)

Crossrefs

Sequence in context: A325835 A050158 A057254 * A273139 A303435 A090845

Adjacent sequences: A057239 A057240 A057241 * A057243 A057244 A057245

Keyword

nonn

Author

Robert G. Wilson v, Sep 20 2000

Status

approved