登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
甲239241 将n划分为不同部分的数目,其中(奇数部分的数目)=(偶数部分的数目)。 17
1,0,0,1,0,2,0,3,0,4,1,5,2,6,5,7,8,8,14,9,20,11,30,13,40,17,55,23,70,32,91,45,112,65,140,91,169,128,206,177,245,241,295,323,350,429,419,559,499,722,600,921,721,1162,874,1452,1062,1800,1299,2210 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

0,6

评论

(不适用)=A240021型(n,0)。-海因茨2014年4月2日

链接

阿洛伊斯·P·海因茨,n=0..1000时的n,a(n)表

公式

a(n)+甲239239(n)+A239242(n)=A000009号(n) 对于n>=1。

a(n)=[x^n y^0]乘积{i>=1}1+x^i*y^(2*(i mod 2)-1)。-海因茨2014年4月3日

例子

a(9)=4计算这些分区:81、72、63、54。

枫木

b: =proc(n,i,t)选项记住;`if`(n>i*(i+1)/2,0,

如果`(n=0,`如果`(t=0,1,0),b(n,i-1,t)+`如果`(i>n,0,

b(n-i,i-1,t+`if`(irem(i,2)=1,1,-1(1))))

结束:

a: =n->b(n$2,0):

顺序(a(n),n=0..60)#海因茨2014年3月15日

数学

z=55;p[n_u]:=p[n]=整数分位数[n];d[u_u]:=d[u]=删除重复项[u];g[u_u]:=g[u]=长度[u];

表[g[Select[Select[p[n],d[#]==#&],计数[#,\?OddQ]<Count[\?EvenQ]&]],{n,0,z}](*甲239239*)

表[g[Select[Select[p[n],d[#]==#&],计数[#,\?OddQ]<=Count[#,\?EvenQ]&]],{n,0,z}](*A239240号*)

表[g[Select[Select[p[n],d[#]==#&],计数[#,\?OddQ]==计数?EvenQ]&]],{n,0,z}](*甲239241*)

表[g[Select[Select[p[n],d[#]==#&],计数[#,\?OddQ]>计数?EvenQ]&]],{n,0,z}](*A239242号*)

表[g[Select[Select[p[n],d[#]==#&],计数[#,\?OddQ]>=计数?EvenQ]&]],{n,0,z}](*A239243*)

(*彼得·J·C·摩西2014年3月10日*)

b[n,i,t_9]:=b[n,i,t]=如果[n>i*(i+1)/2,0,如果[n==0,如果[t==0,1,0],b[n,i-1,t]+如果[i>n,0,b[n-i,i-1,t+如果[Mod[i,2]==1,1,-1]]]];a[n_u]:=b[n,n,0];表[a[n],{n,0,60}](*让·弗朗索瓦·阿尔科弗2015年12月27日,之后海因茨*)

交叉引用

囊性纤维变性。甲239239,A239240号,A239242,A239243,A000009号.

上下文顺序:A029179号 A008721号 A008735型*甲263395 A240139 A008800型

相邻序列:A239238 甲239239 A239240号*A239242 A239243 甲239244

关键字

,容易的

作者

克拉克·金伯利2014年3月13日

状态

经核准的

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

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

上次修改日期:美国东部时间2020年9月20日02:21。包含337261个序列。(运行在oeis4上。)