%I#26 2018年7月1日08:38:10
%S 1,3,12,60311167491735100228638416207769228872452810792,
%电话:30344709617496127361011758374958656027314340806249367,
%电话:19840182718501156993293819267574451148083952141840473662313156804812521356758734934597962798031310
%N从{-3,-2,-1,1,2,3}开始N步的正向曲流数(从原点开始,在任何高度>0且从未接触或低于x轴的地方结束)。
%C根据惯例,空走(对应于n=0)被视为正向弯曲。
%H Andrew Howroyd,n的表,n=0..200的a(n)</a>
%H.C.Banderier、C.Kreattehaler、A.Krinik、D.Kruchinin、V.Kruchini、D.Nguyen和M.Wallner,<A href=“https://arxiv.org/abs/1609.06473“>晶格路径枚举的显式公式:basketball和核方法,arXiv:1609.06473[math.CO],2016。
%t frac[ex_]:=选择[ex,指数[#,x]<0&];
%tseq[n_]:=模块[{v,m,p},v=表[0,n];m=总和[x^i,{i,-3,3}]-1;p=1/x;v[[1]]=1;对于[i=2,i<=n,i++,p=p*m//展开;p=p-frac[p];v[[i]]=p/。x->1];v] ;
%以下[24](*Jean-François Alcover_,2018年7月1日,以Andrew Howroyd_*命名)
%o(PARI)seq(n)={my(v=向量(n),m=和(i=-3,3,x^i)-1,p=1/x);v[1]=1;对于(i=2,n,p*=m;p-=frac(p);v[i]=子集(p,x,1));v}\\ Andrew Howroyd_,2018年6月27日
%Y请参阅A276852、A278391、A27839、A2783、A2781394、A278386和A278398。
%K nonn,步行
%0、2
%2016年11月20日,阿维德·阮
|