A342513 Number of integer partitions of n with weakly decreasing first quotients.
1, 1, 2, 3, 4, 5, 7, 8, 9, 12, 13, 15, 20, 21, 24, 28, 29, 33, 40, 44, 49, 57, 61, 65, 77, 84, 87, 99, 106, 115, 132, 141, 152, 167, 180, 193, 212, 228, 246, 274, 290, 309, 338, 357, 382, 412, 439, 463, 498, 536, 569, 608, 648, 693, 743, 790, 839, 903, 949
Offset: 1
Keywords
Examples
The partition (9,7,4,2,1) has first quotients (7/9,4/7,1/2,1/2) so is counted under a(23). The a(1) = 1 through a(8) = 9 partitions: (1) (2) (3) (4) (5) (6) (7) (8) (11) (21) (22) (32) (33) (43) (44) (111) (31) (41) (42) (52) (53) (1111) (221) (51) (61) (62) (11111) (222) (331) (71) (321) (421) (332) (111111) (2221) (431) (1111111) (2222) (11111111)
Links
- Eric Weisstein's World of Mathematics, Logarithmically Concave Sequence.
- Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.
- Gus Wiseman, Sequences counting and ranking partitions and compositions by their differences and quotients.
Crossrefs
The ordered version is A069916.
The version for differences instead of quotients is A320466.
The weakly increasing version is A342497.
The strictly decreasing version is A342499.
The strict case is A342519.
The Heinz numbers of these partitions are A342526.
A000005 counts constant partitions.
A000009 counts strict partitions.
A000041 counts partitions.
A000929 counts partitions with all adjacent parts x >= 2y.
A001055 counts factorizations.
A074206 counts ordered factorizations.
A167865 counts strict chains of divisors > 1 summing to n.
A342094 counts partitions with adjacent parts x <= 2y.
Programs
-
Mathematica
Table[Length[Select[IntegerPartitions[n],GreaterEqual@@Divide@@@Reverse/@Partition[#,2,1]&]],{n,0,30}]
Comments