%I#7 2021年10月9日12:33:29

%S 1,3,5,9,15,25,27,45,75,81125135225243265295375405675,，

%电话7299251125125187520252187312533536454077483351395625，

%电话：607563456519375101251093515625168751789518125182251849519683

%N个数N使得N|5^N+4^N+3^N+2^N+1^N。

%H Harvey P.Dale，n表，n=1..100的a（n）</a>

%t执行[If[Mod[PowerMod[5，n，n]+PowerMod[4，n，n]+PowerMod[3，n，n-]+PowerModul[2，n，n]==0，打印[n]，{n，1，10^6}]

%t选择[Range[20000]，Mod[Total[PowerMod[Range[0,5]，#，#]]，#]==0&]（*哈维·P·戴尔，2021年10月9日*）

%Y参考A001552。

%K非n

%O 1,2号机组

%A _Robert G.Wilson v_，2000年8月25日