登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

 

标志

感谢所有在我们年度呼吁中捐款的人!
若要查看捐赠者名单或捐款,请参阅OEIS基金会主页

提示
问候整数序列的在线百科全书!)
A130780 N的分区数,使得奇数部分的数目大于或等于偶数部分的数目。 十五
1, 1, 1、3, 3, 6、8, 12, 16、23, 32, 42、58, 75, 102、131, 173, 220、288, 363, 466、587, 743, 929、1164, 1448, 1797、2224, 2738, 3368、4122, 5042, 6133、7466, 9035, 10941、7466, 9035, 10941、γ 列表图表参考文献历史文本内部格式
抵消

0、4

评论

A(n)=A108950(n)+A045 931(n)=A000 000 41(n)A108949(n)。-莱因哈德祖姆勒1月21日2010

A(n)=SuMu{{K=0…n}A2400(n,k)。-阿洛伊斯·P·海因茨3月30日2014

链接

Alois P. Heinzn,a(n)n=0…500的表

公式

G.f.:SuMu{{K>=0 } x^ k/乘积{{i=1…k}(1-x^(2*i))^ 2。

例子

A(5)=6,因为我们有5,41,323 11211和11111(221不合格)。

枫树

g=:和(x^ k/(乘积((1-x^(2×i))^ 2,i=1…k)),k=0…50):GSE:=级数(g,x=0, 50):SEQ(COEFF(GSER,X,N),n=1…40);埃米里埃德奇8月24日2007

第二枫叶计划:

B== PROC(n,i,t)选项记住;“如果”(n=0);

‘如果’(t>=0, 1, 0),‘If’(i<1, 0,b(n,i-1,t)+)

‘i’,(i>n,0,b(n-Ⅰ,i,t+(2×Irm(i,2)- 1π))

结束:

A:=N-> B(n元2, 0):

SEQ(A(n),n=0…80);阿洛伊斯·P·海因茨3月30日2014

Mathematica

$递归[n],i],t[]:=[b],[n,i,t]=[n=i,0,如果[t>=0, 1, 0 ],如果[i<1, 0,b[n,i-1,t] + [i> n,0,b[n-,i,t+(2 *mod [i,2 ] -1)] ],a [n]:=b[n,n,0 ];表[a[n],{n,0, 80 }](*)让弗兰5月12日2015后阿洛伊斯·P·海因茨*)

交叉裁判

囊性纤维变性。A045 931A108949A108950.

囊性纤维变性。A171966A171967. -莱因哈德祖姆勒1月21日2010

语境中的顺序:A241390 A241831 A24946*A1745 A143592 A280197

相邻序列:A13077 A130788 A13077*A130781A A130782A A130783A

关键词

容易诺恩

作者

瓦拉德塔约霍维奇8月19日2007

扩展

更多条款埃米里埃德奇8月24日2007

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改1月22日01:02 EST 2020。包含331131个序列。(在OEIS4上运行)