%I#7 2019年4月16日15:26:56
%S 0,0,0,1,1,2,4,4,6,8,11,19,17,25,29,37,37,56,53,75,80,99103145,
%电话:1431811992472553363394264595485907387599169991192,
%电话:125915291609152083240625893085326738094134476351195964
%N具有调整频率深度3的N的整数分区数。
%如果整数分区为空,则整数分区的调整频率深度为0,否则为1加上必须使用多重数集才能达到单重数的次数。例如,分区(32211)已经调整了频率深度5,因为我们有:(32111)->(221)->(21)->(11)->(2)。A325280给出了通过调整频率深度进行整数分区的计数。A323014给出了Heinz数为n的整数分区的调整频率深度。
%e a(3)=1到a(10)=11分区:
%e(21)(31)(32)(42)(43)(53)(54)(64)
%e(41)(51)(52)(62)(63)(73)
%e(321)(61)(71)(72)(82)
%e(2211)(421)(431)(81)(91)
%e(521)(432)(532)
%e(3311)(531)(541)
%e(621)(631)
%e(222111)(721)
%e(3322)
%e(4321)
%e(4411)
%t fdadj[ptn_List]:=如果[ptn=={},0,Length[NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]]];
%t表[Length[Select[Integer Partitions[n],fdadj[#]==3&]],{n,0,30}]
%A225485和A325280的Y列k=3。
%Y参见A008284、A047966、A116608、A127002、A181819、A182850、A323014、A323023、A325239、A325246、A325254、A325268、A325280。
%K非n
%0、6
%A _Gus Wiseman_,2019年4月15日
|