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

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, 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, 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

Offset

1,2

Comments

See A138138 and A138151 for more information.

Links

Robert Price, Table of n, a(n) for n = 1..9514, 25 rows.

Example

Triangle begins:
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,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,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;
...

Mathematica

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

Crossrefs

Cf. A138137, A138138, A138151.

Sequence in context: A214065 A182710 A182711 * A056472 A162247 A264809

Adjacent sequences: A138133 A138134 A138135 * A138137 A138138 A138139

Keyword

nonn,tabf

Author

Omar E. Pol, Mar 23 2008

Status

approved