%I#20 2020年2月12日08:09:38
%S 1,1,2,5,14,4718077337011948811890695786465618533356828,
%电话:2546756422063984616176940547231599581763161520689121858,
%电话:15165205111010
%N避免模式0000的长度为N的上升序列数。
%H Paul Duncan和Einar Steingrismson,<a href=“https://arxiv.org/abs/1109.3641“>上升序列中的模式避免</a>,arXiv:1109.3641[math.CO],2011。
%F a(n)<=A022493(n),仅当n<4时相等。
%pb:=proc(n,i,t,p)选项记忆`如果`(n=0,1,添加(
%p`if`(系数(p,x,j)=3,0,b(n-1,j,t+
%p`if`(j>i,1,0),p+x^j)),j=1..t+1))
%p端:
%pa:=n->b(n,0美元3):
%p序列(a(n),n=0..12);
%tb[n_,i_,t_,p_,k_]:=b[n,i,t,p,k]=如果[n==0,1,总和[If[系数[p,x,j]==k,0,b[n-1,j,t+如果[j>i,1,0],p+x^j,k]],{j,1,t+1}]];a[n]:=b[n,0,0,0,最小值[n,3]];
%t表格[打印[“a(”,n,“)=“,a[n]];a[n],{n,0,15}](*_Vincizo Librandi_,2020年2月12日*)
%A294220的Y列k=3。
%Y参考A022493。
%K nonn,更多
%0、3
%A _Alois P.Heinz,2018年8月6日
%E a(18)摘自_Vaclav Kotesovec_,2018年8月20日
%E a(19)摘自_Vaclav Kotesovec_,2018年8月23日
|