提出
经核准的
编辑
a[n_]:=对于[x=2,True,x++,如果[Divisible[1+Sum[k^(x-1),{k,x-1}],nx],Return[x]]];
数组[a,60](*Jean-François Alcover公司2020年10月16日*)
检验过的
Robert Israel,<a href=“/A306431型/b306431.txt“>n表,n=1..2000时为a(n)</a>