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

%I #11 May 22 2020 16:20:08

%S 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 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 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 Triangle read by rows: row n lists the parts > 1 of the last section of the set of partitions of n.

%C See A138138 and A138151 for more information.

%H Robert Price, <a href="/A138136/b138136.txt">Table of n, a(n) for n = 1..9514, 25 rows.</a>

%e Triangle begins:

%e 0;

%e 2;

%e 3;

%e 4,2,2;

%e 5,3,2;

%e 6,4,2,3,3,2,2,2;

%e 7,5,2,4,3,3,2,2;

%e 8,6,2,5,3,4,4,4,2,2,3,3,2,2,2,2,2;

%e 9,7,2,6,3,5,4,5,2,2,4,3,2,3,3,3,3,2,2,2;

%e 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 ...

%t Join[{0}, Table[Cases[IntegerPartitions[n], x_ /; Last[x] != 1], {n, 10}]] // Flatten (* _Robert Price_, May 22 2020 *)

%Y Cf. A138137, A138138, A138151.

%K nonn,tabf

%O 1,2

%A _Omar E. Pol_, Mar 23 2008