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