登录
OEIS由支持OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A179269号 将n划分为不同部分的次数,使得连续部分的连续差异不断增加,并且第一个差异>第一部分。 13
1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 5, 5, 5, 7, 7, 7, 10, 10, 10, 13, 14, 14, 18, 19, 19, 23, 25, 25, 30, 32, 33, 38, 41, 42, 48, 52, 54, 60, 65, 67, 75, 81, 84, 92, 99, 103, 113, 121, 126, 136, 147, 153, 165, 177, 184, 197, 213, 221, 236, 253, 264, 280, 301, 313, 331, 355, 371, 390, 418, 435, 458 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,5
评论
中的条件A179254号; 此外,如果超过1个部分,则第一个差异>第一个部分。
等价地,通过减小部件大小计算部件数的顺序为1、2、3……的分区数-奥利维尔·杰拉德2017年7月28日
链接
安德鲁·霍罗伊德,n=0..10000时的n,a(n)表(术语0..200来自Seiichi Manyama)
配方奶粉
G.f.:求和{k>=0}x^(k*(k+1)*(k+2)/6)/乘积{j=1..k}(1-x ^(j*(j+1)/2))(猜想)-伊利亚·古特科夫斯基2019年4月25日
例子
a(10)=5,因为有5个10的分区:1+3+6=1+9=2+8=3+7=10。
a(10)=5,因为有5个这样的分区,即10:10、8+1+1、6+2+2、4+3+3、3+2+2+1+1(第二定义)。
发件人古斯·怀斯曼2019年5月4日:(开始)
a(3)=1到a(13)=7分区的差异严格递增(最后一部分取0)如下(a=10,B=11,C=12,D=13)。这些分区的Heinz数由下式给出A325460型.
(3) (4)(5)(6)(7)(8)(9)(A)(B)(C)(D)
(31)(41)(51)(52)(62)(72)(73)(83)(93)(94)
(61)(71)(81)(82)(92)(A2)(A3)
(91)(A1)(B1)(B2)
(631)(731)(831)(C1)
(841)
(931)
a(3)=1到a(11)=5的分区,其重数形成正整数的初始区间,如下所示(a=10,B=11)。这些分区的Heinz数由下式给出A307895型.
(3) (四)(五)(六)(七)(八)(九)(甲)(乙)
(211) (311) (411) (322) (422) (522) (433) (533)
(511) (611) (711) (622) (722)
(811) (911)
(322111) (422111)
(结束)
数学
表[长度@
选择[Integer Partitions[n],
和@@Equal[Range[Length[Split[#]]],Length/@Split[#]]&],{n,
0, 40}] (*奥利维尔·杰拉德2017年7月28日*)
表[Length[Select[Integer Partitions[n],Less@@Differences[Append[#,0]&]],{n,0,30}](*古斯·怀斯曼2019年5月4日*)
黄体脂酮素
(鼠尾草)
定义A179269号(n) :
has_increasing_diffs=λx:min(差值(x,2))>=1
特殊=λx:(x[1]-x[0])>x[0]
允许=λx:(len(x)<2或特殊(x))和(len
return len([x代表分区(n,max_slope=-1)中的x,如果允许(x[::-1])])
#D.S.麦克尼尔2011年1月6日
(红宝石)
定义分区(n,最小,最大)
如果n==0,则返回[[]]
[max,n].min.downto(min).flat_map{i|分区(n-i,min,i-1).map{rest|[i,*rest]}}
结束
定义f(n)
如果n==0,则返回1
碳纳米管=0
分区(n,1,n).每个|
ary<<0
ary0=(1..ary.size-1).map{|i|ary[i-1]-ary[i]}
如果ary0.sort==ary0.reverse&&ary0.uniq==ary0,则cnt+=1
}
碳纳米管
结束
定义A179269号(n)
(0..n).map{i|f(i)}
结束
第页179269英镑(50) #Seiichi Manyama先生2018年10月12日
(PARI)
R(n)={my(L=List(),v=vectorv(n,i,1),w=1,t=1);while(v,listput(L,v);w++;t+=w;v=vectorv(n,i,sum(k=1,(i-1)\t,L[w-1][i-k*t]));Mat(L)}
序列(n)={my(M=R(n));连接([1],向量(n,i,向量(M[i,]))}\\安德鲁·霍罗伊德2019年8月27日
交叉参考
囊性纤维变性。179254英镑(仅针对差异),A007294号(非递减而非严格递增),A179255号,A320382型,A320385型,A320387型,A320388型.
关键字
非n
作者
乔格·阿恩特2011年1月5日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月23日10:29。包含371905个序列。(在oeis4上运行。)