A057214 Numbers n such that n | 10^n + 9^n + 8^n + 7^n.

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

Links

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

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

Adjacent sequences: A057211 A057212 A057213 * A057215 A057216 A057217

Keyword

nonn

Author

Robert G. Wilson v, Sep 20 2000

Extensions

Corrected by Don Reble, Nov 20 2006

Status

approved