%I#7 2023年6月4日19:14:26
%S 0,1,1,2,3,8,11,19,49,68117185487672115918314821665211473,
%电话18125477236584811357117941947240965182811242371776065,
%电话:4676367645243211287991758123146291261638724921016375328419999839637516785637491751491249
%N a(N)是k>0时形式k*a(N-1)+a(N-2)的最小数,它相对于N是素数,a(0)=0,a(1)=1。
%tnxt[{n_,a_,b_}]:=模[{k=1},While[!互质Q[k*b+a,n+1],k++];{n+1,b,k*b+a}];嵌套列表[nxt,{1,0,1},40][[;;,2]](*_哈维·P·戴尔,2023年6月4日*)
%o(PARI)ar(n)=局部(r,m);r=矢量(n);r[1]=0;r[2]=1;对于(k=2,n-1,m=1;而(gcd(m*r[k]+r[k-1],k)>1,m++);r[k+1]=m*r[k]+r[k-1]);第页
%K nonn公司
%0、4
%A _弗兰克林·T·亚当斯-沃特斯,2012年2月5日
|