cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A120565 Maximum over all planar partitions of n of the number of ways the partition can be shrunk by removing a single element.

Original entry on oeis.org

0, 1, 1, 2, 3, 3, 3, 4, 4, 5, 6, 6, 6, 6, 7, 7, 7, 8, 8, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 13, 13, 14, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 17, 17, 17, 17, 18, 18, 18, 19, 19, 20, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 24, 24
Offset: 0

Views

Author

Keywords

Comments

Maximum of any sum_i k_i, where sum_i k_i*(k_i+1)/2 <= n.

Crossrefs

Row lengths of A098529.

Formula

For n > 2, let m be the largest value such that tetrahedral number m*(m+1)*(m+2)/6 <= n. Then a(n) = max(m*(m+1)/2, m+1 + a(n - (m+1)*(m+2)/2)), taking a(k) to be 0 for k < 0.

A098530 T(n,k) counts solid partitions of n+1 that can be 'shrunk' in k ways to a solid partition of n by removing 1 element from it. Equivalently, it counts how many solid partitions of n+1 have k different solid partitions of n it just covers.

Original entry on oeis.org

4, 4, 6, 10, 12, 4, 4, 42, 12, 1, 16, 60, 60, 4, 4, 105, 164, 34, 20, 162, 316, 180, 6, 10, 202, 672, 484, 96
Offset: 1

Views

Author

Wouter Meeussen, Sep 12 2004

Keywords

Comments

Sequence starts 4; 4,6; 10,12,4; 4,42,12,1; 16,60,60,4; 4,105,164,34; Row sums are A000293= the solid partitions of n+1 apart from offset. First column conjectured to be the (beheaded) A007426.

Examples

			T(3,3)=4 because the only solid partitions of 3+1=4 that can be shrunk in exactly 3 ways to plane partitions of 3 are
[{{2,1},{1}}], [{{2,1}},{{1}}], [{{2},{1}},{{1}}] and [{{1,1},{1}},{{1}}].
		

Crossrefs

Programs

  • Mathematica
    (* functions 'solidform' and 'coverssolidQ', see A098052 *) Table[Frequencies[Count[Flatten[solidform / @ Partitions[n+1]], q_/;coverssolidQ[q, # ]]&/ @ Flatten[solidform / @ Partitions[n]]], {n, 1, 8}]
Showing 1-2 of 2 results.