cp's OEIS Frontend

A242628 Irregular table enumerating partitions; n-th row has partitions in previous row with each part incremented, followed by partitions in previous row with an additional part of size 1.

%I A242628 #37 Nov 12 2022 20:07:32
%S A242628 1,2,1,1,3,2,2,2,1,1,1,1,4,3,3,3,2,2,2,2,3,1,2,2,1,2,1,1,1,1,1,1,5,4,
%T A242628 4,4,3,3,3,3,4,2,3,3,2,3,2,2,2,2,2,2,4,1,3,3,1,3,2,1,2,2,2,1,3,1,1,2,
%U A242628 2,1,1,2,1,1,1,1,1,1,1,1,6,5,5,5,4,4,4,4,5,3,4,4,3,4,3,3,3,3,3,3,5,2
%N A242628 Irregular table enumerating partitions; n-th row has partitions in previous row with each part incremented, followed by partitions in previous row with an additional part of size 1.
%C A242628 This can be calculated using the binary expansion of n; see the PARI program.
%C A242628 The n-th row consists of all partitions with hook size (maximum + number of parts - 1) equal to n.
%C A242628 The partitions in row n of this sequence are the conjugates of the partitions in row n of A125106 taken in reverse order.
%C A242628 Row n is also the reversed partial sums plus one of the n-th composition in standard order (A066099) minus one. - _Gus Wiseman_, Nov 07 2022
%H A242628 Alois P. Heinz, <a href="/A242628/b242628.txt">Rows n = 1..12, flattened</a>
%H A242628 Gus Wiseman, <a href="https://docs.google.com/document/d/e/2PACX-1vTCPiJVFUXN8IqfLlCXkgP15yrGWeRhFS4ozST5oA4Bl2PYS-XTA3sGsAEXvwW-B0ealpD8qnoxFqN3/pub">Statistics, classes, and transformations of standard compositions</a>
%e A242628 The table starts:
%e A242628   1;
%e A242628   2; 1,1;
%e A242628   3; 2,2; 2,1; 1,1,1;
%e A242628   4; 3,3; 3,2; 2,2,2; 3,1 2,2,1 2,1,1 1,1,1,1;
%e A242628   ...
%p A242628 b:= proc(n) option remember; `if`(n=1, [[1]],
%p A242628       [map(x-> map(y-> y+1, x), b(n-1))[],
%p A242628        map(x-> [x[], 1], b(n-1))[]])
%p A242628     end:
%p A242628 T:= n-> map(x-> x[], b(n))[]:
%p A242628 seq(T(n), n=1..7);  # _Alois P. Heinz_, Sep 25 2015
%t A242628 T[1] = {{1}};
%t A242628 T[n_] := T[n] = Join[T[n-1]+1, Append[#, 1]& /@ T[n-1]];
%t A242628 Array[T, 7] // Flatten (* _Jean-François Alcover_, Jan 25 2021 *)
%o A242628 (PARI) apart(n) = local(r=[1]); while(n>1,if(n%2==0,for(k=1,#r,r[k]++),r=concat(r,[1]));n\=2);r \\ Generates n-th partition.
%Y A242628 Cf. A241596 (another version of this list of partitions), A125106, A240837, A112531, A241597 (compositions).
%Y A242628 For other schemes to list integer partitions, please see for example A227739, A112798, A241918, A114994.
%Y A242628 First element in each row is A008687.
%Y A242628 Last element in each row is A065120.
%Y A242628 Heinz numbers of rows are A253565.
%Y A242628 Another version is A358134.
%Y A242628 Cf. A000120, A029837, A029931, A030303, A066099, A070939, A253566, A355536, A358135, A358136.
%K A242628 nonn,tabf
%O A242628 1,2
%A A242628 _Franklin T. Adams-Watters_, May 19 2014