%I#45 2022年6月13日03:02:52
%序号1,2,4,10,301013941760897051368326991228966917491625,
%电话:1447606551290204758123205413921254960106151358185050788,
%电话:15563654383395188254471337718239693037656486032044598671291610
%分区号1,1,1,2,3,5,7,…的N Boustrophedon变换。。。
%H John Cerkan,n表,n=0..482的a(n)</a>
%H Peter Luschny,<a href=“http://oeis.org/wiki/用户:Peter_Luschny/SeidelTransform“>序列上的旧操作:Seidel变换。
%H J.Millar、N.J.A.Sloane和N.E.Young,《序列的新操作:Boutrophedon变换》,《组合理论》,17A(1996)44-54(<A href=“http://neilsloane.com/doc/bous.txt“>摘要,<a href=”http://neilsloane.com/doc/bous.pdf“>pdf</a>,<a href=”http://neilsloane.com/doc/bous.ps“>ps</a>)。
%H N.J.A.Sloane,转换。
%H维基百科,<a href=“https://en.wikipedia.org/wiki/Bustrophedon_transform“>Boutrophedon变换。
%H<a href=“/index/Bo#boutrophedon”>与boutropheredon变换相关的序列的索引项</a>
%e阵列开始:
%第1页
%e 1->2
%e 4<-3<-1
%e 2->6->9->10
%e 30<-28<-22<-13<-3
%e-John Cerkan,2017年1月26日
%t t[n_,0]:=如果[n==0,1,分区P[n-1]];t[n,k]:=t[n、k]=t[n,k-1]+t[n-1,n-k];a[n]:=t[n,n];阵列[a,30,0](*_Jean-François Alcover_,2016年2月12日*)
%o(哈斯克尔)
%o a000733 n=总和$zipWith(*)(a109449_row n)(1:a000041_list)
%o--_Reinhard Zumkeller_,2013年11月4日
%o(Python)
%o从itertools导入count、accumpt、islice
%o来自sympy导入npartitions
%o def A000733_gen():#术语生成器
%o产量1
%o blist=(1,)
%计数(0)中i的o:
%o收益率(blist:=元组(累加(反向(blist),初始=npartitions(i)))[-1]
%o A000733_list=list(岛屿(A000733-gen(),40))#_Chai Wah Wu_,2022年6月12日
%Y参考A000041、A0000751、A109449、A230957。
%K nonn公司
%0、2
%A _N.J.A.Sloane,西蒙·普劳夫_
|