A057248 Numbers n such that n | 6^n + 5^n + 4^n + 3^n.

1, 2, 3, 9, 27, 81, 86, 243, 729, 2187, 4401, 6561, 8189, 10282, 13203, 19683, 39609, 40713, 59049, 118827, 171009, 177147, 335073, 356481, 531441, 717363, 894958, 947141

Offset

1,2

Links

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

Mathematica

Select[ Range[ 10^6 ], Mod[ PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ], # ] == 0 & ]
Select[Range[10^6], Mod[Total[PowerMod[Range[3, 6], #, #]], #]==0&] (* Harvey P. Dale, Jan 24 2022 *)

Crossrefs

Sequence in context: A045596 A057299 A057296 * A015960 A099079 A339831

Adjacent sequences: A057245 A057246 A057247 * A057249 A057250 A057251

Keyword

nonn

Author

Robert G. Wilson v, Sep 21 2000

Status

approved