cp's OEIS Frontend

A138136 Triangle read by rows: row n lists the parts > 1 of the last section of the set of partitions of n.

%I A138136 #11 May 22 2020 16:20:08
%S A138136 0,2,3,4,2,2,5,3,2,6,4,2,3,3,2,2,2,7,5,2,4,3,3,2,2,8,6,2,5,3,4,4,4,2,
%T A138136 2,3,3,2,2,2,2,2,9,7,2,6,3,5,4,5,2,2,4,3,2,3,3,3,3,2,2,2,10,8,2,7,3,6,
%U A138136 4,6,2,2,5,5,5,3,2,4,4,2,4,3,3,4,2,2,2,3,3,2,2,2,2,2,2,2
%N A138136 Triangle read by rows: row n lists the parts > 1 of the last section of the set of partitions of n.
%C A138136 See A138138 and A138151 for more information.
%H A138136 Robert Price, <a href="/A138136/b138136.txt">Table of n, a(n) for n = 1..9514, 25 rows.</a>
%e A138136 Triangle begins:
%e A138136 0;
%e A138136 2;
%e A138136 3;
%e A138136 4,2,2;
%e A138136 5,3,2;
%e A138136 6,4,2,3,3,2,2,2;
%e A138136 7,5,2,4,3,3,2,2;
%e A138136 8,6,2,5,3,4,4,4,2,2,3,3,2,2,2,2,2;
%e A138136 9,7,2,6,3,5,4,5,2,2,4,3,2,3,3,3,3,2,2,2;
%e A138136 10,8,2,7,3,6,4,6,2,2,5,5,5,3,2,4,4,2,4,3,3,4,2,2,2,3,3,2,2,2,2,2,2,2;
%e A138136 ...
%t A138136 Join[{0}, Table[Cases[IntegerPartitions[n], x_ /; Last[x] != 1], {n, 10}]] // Flatten (* _Robert Price_, May 22 2020 *)
%Y A138136 Cf. A138137, A138138, A138151.
%K A138136 nonn,tabf
%O A138136 1,2
%A A138136 _Omar E. Pol_, Mar 23 2008