login
A057214
Numbers n such that n | 10^n + 9^n + 8^n + 7^n.
0
1, 2, 6, 14, 17, 78, 98, 187, 221, 289, 406, 642, 686, 799, 1014, 1067, 1374, 1794, 2567, 2842, 4802, 4913, 8773, 10319, 11026, 11407, 11774, 12246, 13182, 15022, 19894, 23987, 24414, 31093, 33614, 60074, 63869, 64651, 73117, 82418, 83521, 94187
OFFSET
1,2
MATHEMATICA
Select[ Range[ 10^7 ], Mod[ PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ], # ] + PowerMod[ 7, #, # ], # ] == 0 & ]
CROSSREFS
Sequence in context: A065196 A295326 A032483 * A196445 A280082 A139269
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 20 2000
EXTENSIONS
Corrected by Don Reble, Nov 20 2006
STATUS
approved