%I#15 2023年6月29日19:07:26
%S 1,1,3,3,5,2,7,7,9,4,11,3,13,6,3,15,17,8,19,4,21,10,23,8,25,12,27,3,
%电话29,5,31,31,33,16,7,8,37,18,18,15,41,6,43,11,45,22,47,15,49,24,21,4,
%U 53、26、22、7、57、28、59、15、61、30、63、63、65、2、67、16、69、5、71、8、73、36、18、8、77、12、79、15、81、40、83、20、15、42、12、32、89、9、7、23、93、46、38、32、97、48、99、24
%N a(N)=最小k>=1,这样N就可以除以k ^N+k。
%H Harvey P.Dale,n表,n=1..1000的a(n)</a>
%tsk[n_]:=模块[{k=1},而[PowerMod[k,n,n]=n-k,k++];k] ;数组[sk,100](*_哈维P.戴尔,2023年6月29日*)
%Y参考A015908。
%K nonn公司
%氧1,3
%A _罗伯特·G·威尔逊v_
%E定义、偏移和数据修正。感谢_Harvey P.Dale_指出了一些错误_N.J.A.斯隆,2023年6月29日
|