A177815 Triangle read by rows: binomial(n, m^3).

1, 1, 1, 1, 2, 1, 3, 1, 4, 1, 5, 1, 6, 1, 7, 1, 8, 1, 1, 9, 9, 1, 10, 45, 1, 11, 165, 1, 12, 495, 1, 13, 1287, 1, 14, 3003, 1, 15, 6435, 1, 16, 12870, 1, 17, 24310, 1, 18, 43758, 1, 19, 75582, 1, 20, 125970

Offset

0,5

Comments

Row sums are: {1, 2, 3, 4, 5, 6, 7, 8, 10, 19, 56, 177, 508, 1301, 3018, 6451, 12887, 24328, 43777, 75602, 125991,...}.

First length 4 row is: {1, 27, 2220075, 1}.

Links

Table of n, a(n) for n=0..53.

Example

{1},
{1, 1},
{1, 2},
{1, 3},
{1, 4},
{1, 5},
{1, 6},
{1, 7},
{1, 8, 1},
{1, 9, 9},
{1, 10, 45},
{1, 11, 165},
{1, 12, 495},
{1, 13, 1287},
{1, 14, 3003},
{1, 15, 6435},
{1, 16, 12870},
{1, 17, 24310},
{1, 18, 43758},
{1, 19, 75582},
{1, 20, 125970},
...
{1, 27, 2220075, 1}

Mathematica

t[n_, m_] = Binomial[n, m^3];
Table[Table[t[n, m], {m, 0, Floor[n^(1/3)]}], {n, 0, 20}];
Flatten[%]

Crossrefs

Cf. A003099, A181543, A000581.

Sequence in context: A322313 A322315 A319338 * A007879 A057979 A152271

Adjacent sequences: A177812 A177813 A177814 * A177816 A177817 A177818

Keyword

nonn,tabf,changed

Author

Roger L. Bagula, Dec 13 2010

Status

approved