A325258 - OEIS

%I #5 Apr 17 2019 19:08:44

%S 1,1,1,1,3,7,28,171,2624,172613,139584150,6837485347187,

%T 266437138079023501057,508009471379222384299345337895696,

%U 37745517525533091954228691786161750063795478326636142,5347426383812697233786139576220412396732847744407175515852823296919414647252347610750

%N a(1) = 1; otherwise, first differences of Levine's sequence A011784.

%C a(n) is the number of nonnegative integers k such that the maximum adjusted frequency depth among integer partitions of k is n. For example, the a(5) = 7 numbers are 7, 8, 9, 10, 11, 12, and 13.

%C The adjusted frequency depth of an integer partition is 0 if the partition is empty, and otherwise it is 1 plus the number of times one must take the multiset of multiplicities to reach a singleton. For example, the partition (32211) has adjusted frequency depth 5 because we have: (32211) -> (221) -> (21) -> (11) -> (2). The enumeration of integer partitions by adjusted frequency depth is given by A325280. The adjusted frequency depth of the integer partition with Heinz number n is A323014(n). The maximum adjusted frequency depth for partitions of n is A325282(n).

%t grw[q_]:=Join@@Table[ConstantArray[i,q[[Length[q]-i+1]]],{i,Length[q]}];

%t ReplacePart[Differences[Last/@NestList[grw,{1,1},9]],2->1]

%Y Run lengths of A325282.

%Y Cf. A011784, A181819, A181821, A182850, A182857, A225485, A225486, A323014, A325238, A325254, A325278, A325280, A325283.

%K nonn

%O 0,5

%A _Gus Wiseman_, Apr 16 2019