This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A057267 #5 Apr 03 2019 11:19:39 %S A057267 1,2,3,4,7,9,10,14,21,27,28,49,50,63,70,81,98,147,153,189,196,243,250, %T A057267 343,350,441,490,567,686,729,1029,1071,1250,1323,1372,1701,1750,2156, %U A057267 2187,2188,2401,2450,3087,3430,3969,4802,5103,6250,6561,7203,7497,7546 %N A057267 Numbers n such that n | 9^n + 8^n + 7^n + 6^n + 5^n + 4^n + 3^n. %t A057267 Select[ Range[ 10^4 ], Mod[ PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ], # ] == 0 & ] %t A057267 Select[Range[8000],Divisible[Total[Range[3,9]^#],#]&] (* _Harvey P. Dale_, Apr 03 2019 *) %K A057267 nonn %O A057267 1,2 %A A057267 _Robert G. Wilson v_, Sep 22 2000