login
A057840
Numbers n such that n | 8^n + 6^n + 4^n + 2^n + 1.
0
1, 3, 7, 9, 27, 49, 81, 133, 243, 267, 343, 729, 2187, 2401, 5999, 6561, 14063, 14337, 16807, 17253, 19683, 22329, 33323, 45619, 59049, 75573, 117649, 144531, 177147, 348519, 383913, 531441, 745339, 823543, 911853
OFFSET
1,2
MATHEMATICA
Select[ Range[ 10^6 ], Mod[ PowerMod[ 8, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 2, #, # ] + 1, # ] == 0 & ]
CROSSREFS
Sequence in context: A352016 A018827 A249664 * A339614 A246659 A072087
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 09 2000
STATUS
approved