A342516 Number of strict integer partitions of n with weakly increasing first quotients.
1, 1, 1, 2, 2, 3, 3, 5, 5, 6, 7, 8, 8, 11, 12, 14, 15, 17, 17, 21, 22, 26, 29, 31, 32, 35, 38, 42, 45, 48, 51, 58, 59, 63, 70, 76, 80, 88, 94, 98, 105, 113, 121, 129, 133, 143, 153, 159, 166, 183, 189, 195, 210, 221, 231, 248, 262, 273, 284, 298, 312
Offset: 0
Keywords
Examples
The partition (6,3,2,1) has first quotients (1/2,2/3,1/2) so is not counted under a(12), even though the first differences (-3,-1,-1) are weakly increasing. The a(1) = 1 through a(13) = 11 partitions (A..D = 10..13): 1 2 3 4 5 6 7 8 9 A B C D 21 31 32 42 43 53 54 64 65 75 76 41 51 52 62 63 73 74 84 85 61 71 72 82 83 93 94 421 521 81 91 92 A2 A3 621 532 A1 B1 B2 721 632 732 C1 821 921 643 832 931 A21
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 version for differences instead of quotients is A179255.
The non-strict ordered version is A342492.
The strictly increasing version is A342517.
The weakly decreasing version is A342519.
A000929 counts partitions with all adjacent parts x >= 2y.
A167865 counts strict chains of divisors > 1 summing to n.
Programs
-
Mathematica
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&LessEqual@@Divide@@@Reverse/@Partition[#,2,1]&]],{n,0,30}]
Comments