A342526 Heinz numbers of integer partitions with weakly decreasing first quotients.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 64, 65, 67, 69, 70, 71, 73, 74, 75, 77, 79, 81, 82, 83, 85, 86, 87
Offset: 1
Keywords
Examples
The prime indices of 294 are {1,2,4,4}, with first quotients (2,2,1), so 294 is in the sequence. Most small numbers are in the sequence, but the sequence of non-terms together with their prime indices begins: 12: {1,1,2} 20: {1,1,3} 24: {1,1,1,2} 28: {1,1,4} 36: {1,1,2,2} 40: {1,1,1,3} 44: {1,1,5} 45: {2,2,3} 48: {1,1,1,1,2} 52: {1,1,6} 56: {1,1,1,4} 60: {1,1,2,3} 63: {2,2,4} 66: {1,2,5} 68: {1,1,7} 72: {1,1,1,2,2} 76: {1,1,8} 78: {1,2,6} 80: {1,1,1,1,3} 84: {1,1,2,4}
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 counting strict divisor chains is A057567.
For multiplicities (prime signature) instead of quotients we have A242031.
The weakly increasing version is A342523.
The strictly decreasing version is A342525.
A000929 counts partitions with all adjacent parts x >= 2y.
A002843 counts compositions with all adjacent parts x <= 2y.
A167865 counts strict chains of divisors > 1 summing to n.
Programs
-
Mathematica
primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]]; Select[Range[100],GreaterEqual@@Divide@@@Reverse/@Partition[primeptn[#],2,1]&]
Comments