A306319 Number of length-rectangular twice-partitions of n.
1, 1, 3, 5, 10, 14, 26, 35, 60, 82, 131, 177, 286, 376, 582, 793, 1202, 1610, 2450, 3274, 4906, 6665, 9770, 13274, 19690, 26506, 38596, 53006, 76432, 104189, 150844, 205282, 294304, 404146, 573140, 786169, 1119457, 1527554, 2155953, 2965567, 4163955, 5701816
Offset: 0
Keywords
Examples
The a(5) = 14 length-rectangular twice-partitions: [5] [4 1] [3 2] [3 1 1] [2 2 1] [2 1 1 1] [1 1 1 1 1] . [4] [3] [2 1] [1] [2] [1 1] . [3] [2] [1] [2] [1] [1] . [2] [1] [1] [1] . [1] [1] [1] [1] [1]
Crossrefs
Programs
-
Mathematica
Table[Length[Join@@Table[Select[Tuples[IntegerPartitions/@ptn],SameQ@@Length/@#&],{ptn,IntegerPartitions[n]}]],{n,20}]
Comments