|
|
A342094
|
|
Number of integer partitions of n with no adjacent parts having quotient > 2.
|
|
38
|
|
|
1, 2, 3, 4, 5, 8, 9, 13, 16, 21, 27, 37, 44, 59, 75, 94, 117, 153, 186, 238, 296, 369, 458, 573, 701, 870, 1068, 1312, 1601, 1964, 2384, 2907, 3523, 4270, 5159, 6235, 7491, 9021, 10819, 12964, 15494, 18517, 22049, 26260, 31195, 37020, 43851, 51906, 61290
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The decapitation of such a partition (delete the greatest part) is term-wise greater than or equal to its negated first-differences.
|
|
LINKS
|
|
|
EXAMPLE
|
The a(1) = 1 through a(8) = 13 partitions:
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (21) (22) (32) (33) (43) (44)
(111) (211) (221) (42) (322) (53)
(1111) (2111) (222) (421) (332)
(11111) (321) (2221) (422)
(2211) (3211) (2222)
(21111) (22111) (3221)
(111111) (211111) (4211)
(1111111) (22211)
(32111)
(221111)
(2111111)
(11111111)
|
|
MATHEMATICA
|
Table[Length[Select[IntegerPartitions[n], And@@Thread[Differences[-#]<=Rest[#]]&]], {n, 30}]
|
|
CROSSREFS
|
The version with no adjacent parts having quotient < 2 is A000929.
The case of equality (all adjacent parts having quotient 2) is A154402.
The multiplicative version is A342085, with reciprocal version A337135.
The version with all adjacent parts having quotient < 2 is A342096, with strict case A342097.
The version with all adjacent parts having quotient > 2 is A342098.
The Heinz numbers of these partitions are listed by A342191.
A003114 counts partitions with adjacent parts differing by more than 1.
A034296 counts partitions with adjacent parts differing by at most 1.
A161908 lists superior prime divisors.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|