%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