A057291 Numbers n such that n | 12^n + 11^n + 10^n + 9^n + 8^n + 7^n + 6^n + 5^n + 4^n + 3^n + 2^n + 1^n.

1, 2, 3, 9, 10, 13, 26, 27, 39, 50, 81, 110, 117, 130, 169, 243, 250, 279, 310, 338, 351, 470, 507, 550, 650, 663, 729, 1053, 1209, 1250, 1430, 1521, 1550, 1690, 2187, 2197, 2750, 3159, 3250, 3410, 4030, 4043, 4069, 4394, 4509, 4563, 6250, 6561, 6591, 7150

Offset

1,2

Links

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

Mathematica

Select[ Range[ 10^5 ], Mod[ PowerMod[ 12, #, # ] + PowerMod[ 11, #, # ] + PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ] + PowerMod[ 2, #, # ] + 1, # ] == 0 & ]
Select[Range[7200], Divisible[Total[Range[12]^#], #]&] (* Harvey P. Dale, Aug 05 2017 *)

Crossrefs

Sequence in context: A357353 A214433 A257026 * A135107 A191568 A279549

Adjacent sequences: A057288 A057289 A057290 * A057292 A057293 A057294

Keyword

nonn

Author

Robert G. Wilson v, Sep 22 2000

Status

approved