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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A225486型 n分区的最大频率深度。 18
0, 2, 3, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7 (列表;图表;参考;;历史;文本;内部格式)
抵消
1, 2
评论
请参见A225485型用于定义频率深度。
整数分区的频率深度是指必须经过多重乘法集才能达到(1)的次数。例如,分区(32211)的频率深度为5,因为我们有:(32111)->(221)->(21)->(11)->(2)->(1)。不同于A325282在a(0)和a(1)处-古斯·怀斯曼2019年4月19日
链接
配方奶粉
a(n)=数组第n行中的项数A225485型,对于n>0。
例子
(请参见A225485型.)
数学
c[s_]:=c[s]=选择[表[Count[s,i],{i,1,Max[s]}],#>0&]
f[s_]:=f[s]=删除[FixedPointList[c,s],-2]
t[s_]:=t[s]=长度[f[s]]
u[n_]:=u[n]=表[t[Part[Integer Partitions[n],k]],
{k,1,长度[IntegerPartitions[n]]}];
前缀[表[Max[u[n]],{n,2,10}],0]
(*第二个节目*)
grw[q_]:=连接@@表[ConstantArray[i,q[[Length[q]-i+1]]],{i,Length[C]}];
加入@@MapIndexed[ConstantArray[#2[[1]]-1,#1]&,Length[#]-Last[#]&/@NestList[grw,{1,1},6]](*古斯·怀斯曼2019年4月19日*)
交叉参考
运行长度为A325258型即莱文序列的第一个差异A011784号.
关键词
非n
作者
克拉克·金伯利2013年5月8日
扩展
更多术语来自古斯·怀斯曼2019年4月19日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月21日20:48。包含373559个序列。(在oeis4上运行。)