cp's OEIS Frontend

A326370 Number of condensations to convert all the partitions of n to strict partitions of n.

%I A326370 #12 Jan 28 2022 01:28:03
%S A326370 0,1,1,2,1,2,2,3,2,2,3,3,3,3,3,4,3,3,4,3,4,4,4,4,4,4,4,4,4,4,4,5,4,4,
%T A326370 5,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6,5,5,6,5,
%U A326370 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
%N A326370 Number of condensations to convert all the partitions of n to strict partitions of n.
%C A326370 Suppose that p is a partition of n. Let x(1), x(2), ..., x(k) be the distinct parts of p, and let m(i) be the multiplicity of x(i) in p. The partition {m(1)*x(1), m(2)*x(2), ..., x(k)*m(k)} of n is called the condensation of p.
%H A326370 Rémy Sigrist, <a href="/A326370/a326370.gp.txt">PARI program for A326370</a>
%e A326370 The condensation of [4, 2, 1, 1] is [4, 2, 2], of which the condensation is [4, 4], of which condensation is [8]; thus, a total of three condensations. This is maximal for the partitions of 8, so that a(8) = 3. See A239312.
%t A326370 f[m_] := Table[Tally[m][[h]][[1]]*Tally[m][[h]][[2]], {h, 1, Length[Tally[m]]}];
%t A326370 m[n_, k_] := IntegerPartitions[n][[k]];
%t A326370 q[n_, k_] := -2 + Length[FixedPointList[f, m[n, k]]];
%t A326370 a[n_] := Max[Table[q[n, k], {k, 1, PartitionsP[n]}]];
%t A326370 Table[a[n], {n, 1, 30}]
%o A326370 (PARI) See Links section.
%Y A326370 Cf. A000009, A000041, A239312, A326371.
%K A326370 nonn,easy
%O A326370 1,4
%A A326370 _Clark Kimberling_, Jul 06 2019
%E A326370 More terms from _Rémy Sigrist_, Jul 07 2019