|
|
A000390
|
|
Number of 5-dimensional partitions of n.
(Formerly M4143 N1720)
|
|
10
|
|
|
1, 6, 21, 71, 216, 657, 1907, 5507, 15522, 43352, 119140, 323946, 869476, 2308071, 6056581, 15724170, 40393693, 102736274, 258790004, 645968054, 1598460229, 3923114261, 9554122089, 23098084695, 55458417125, 132293945737, 313657570114
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
REFERENCES
|
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
|
|
MATHEMATICA
|
trans[x_] := If[x == {}, {}, Transpose[x]];
levptns[n_, k_] :=
If[k == 1, IntegerPartitions[n],
Join @@ Table[
Select[Tuples[levptns[#, k - 1] & /@ y],
And @@ (GreaterEqual @@@
trans[Flatten /@ (PadRight[#,
ConstantArray[n, k - 1]] & /@ #)]) &], {y,
IntegerPartitions[n]}]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|