A057250 - OEIS

%I #7 Aug 05 2021 13:59:10

%S 1,2,5,6,10,25,30,34,50,55,125,150,250,275,605,625,750,850,950,1250,

%T 1325,1375,2290,2735,2915,3025,3125,3750,5214,5375,6250,6655,6875,

%U 8070,8490,10763,12925,15125,15625,17725,17750,18750,21250,22825,31250

%N Numbers n such that n | 12^n + 11^n + 10^n + 9^n + 8^n.

%H Harvey P. Dale, <a href="/A057250/b057250.txt">Table of n, a(n) for n = 1..100</a>

%t Select[ Range[ 10^6 ], Mod[ PowerMod[ 12, #, # ] + PowerMod[ 11, #, # ] + PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ], # ] == 0 & ]

%t Select[Range[32000],Mod[Total[PowerMod[Range[8,12],#,#]],#]==0&] (* _Harvey P. Dale_, Aug 05 2021 *)

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Sep 21 2000