检验过的
经核准的
提出
编辑
a[n_]:=a[n]=模[{m,q,r,q2,r2},{q,r}=商余数[n,8];m=(r+1)/2;如果[n<2,n,{q2,r2}=商余数[n,2];如果[r2==0,a[q2],Sum[a[q+m-j]*(-1)^j*二项式[m,j],{j,0,m}]]];表[a[n],{n,0,100}](*Jean-François Alcover公司,2017年3月8日,翻译自枫叶*)
a(8*n+7)=a(n+4)-4*a(n+3)+6*a(n+2)-4*a(n+1)- + a(n)。
a(2*n)=a(n),
a(8*n+1)=a(n+1)-a(n),
a(8*n+3)=a(n+2)-2*a(n+1)+a(n),
a(8*n+5)=a(n+3)-3*a(n+2)+3*a(n+1)-a(n)。
a(8*n+7)=a(n+4)-4*a(n+3)+6*a(n+2)-4*a(n+1)-a(n)。
囊性纤维变性。A005590号,A229817型,A229818型,A229820型,A229821型,A229822型,A229823型,A229824型,229825英镑.
Alois P.Heinz,<a href=“/A229819型/b229819.txt“>n表,n=0..10000时为a(n)</a>
a: =proc(n)选项记忆;局部m,q,r;
m: =(irem(n,8,'q')+1)/2;
`如果`(n<2,n,`if`(irem(n,2,'r')=0,a(r),
加(a(q+m-j)*(-1)^j*二项式(m,j),j=0..m))
结束时间:
seq(a(n),n=0..100);
签名,特征,改变