login
A057262
Numbers n such that n | 7^n + 6^n + 5^n + 4^n + 3^n + 2^n.
0
1, 3, 9, 27, 81, 87, 243, 729, 1027, 1467, 2187, 2781, 6561, 19683, 35901, 59049, 62613, 63423, 63909, 136503, 137133, 177147, 531441, 925101, 1594323, 2785509, 3680883, 4782969, 5080077, 6409507
OFFSET
1,2
MATHEMATICA
Select[ Range[ 10^7 ], Mod[ PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ] + PowerMod[ 2, #, # ], # ] == 0 & ]
CROSSREFS
Sequence in context: A036158 A036136 A271350 * A057232 A374294 A036145
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 21 2000
STATUS
approved