A342521 Heinz numbers of integer partitions with distinct first quotients.

1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82

Offset: 1

Author

Gus Wiseman, Mar 23 2021

Keywords

• nonn

Comments

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

The first quotients of a sequence are defined as if the sequence were an increasing divisor chain, so for example the first quotients of (6,3,1) are (1/2,1/3).

Examples

			The prime indices of 1365 are {2,3,4,6}, with first quotients (3/2,4/3,3/2), so 1365 is not in the sequence.
Most small numbers are in the sequence, but the sequence of non-terms together with their prime indices begins:
    8: {1,1,1}
   16: {1,1,1,1}
   24: {1,1,1,2}
   27: {2,2,2}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   40: {1,1,1,3}
   42: {1,2,4}
   48: {1,1,1,1,2}
   54: {1,2,2,2}
   56: {1,1,1,4}
   64: {1,1,1,1,1,1}
   72: {1,1,1,2,2}
   80: {1,1,1,1,3}
   81: {2,2,2,2}
   84: {1,1,2,4}
   88: {1,1,1,5}
   96: {1,1,1,1,1,2}
  100: {1,1,3,3}
		

Links

• Eric Weisstein's World of Mathematics, Logarithmically Concave Sequence.
• Gus Wiseman, Sequences counting and ranking partitions and compositions by their differences and quotients.

Crossrefs

For multiplicities (prime signature) instead of quotients we have A130091.

For differences instead of quotients we have A325368 (count: A325325).

These partitions are counted by A342514 (strict: A342520, ordered: A342529).

The equal instead of distinct version is A342522.

The version counting strict divisor chains is A342530.

A001055 counts factorizations (strict: A045778, ordered: A074206).

A003238 counts chains of divisors summing to n - 1 (strict: A122651).

A167865 counts strict chains of divisors > 1 summing to n.

A318991/A318992 rank reversed partitions with/without integer quotients.

Cf. A003242, A005117, A056239, A067824, A098859, A112798, A169594, A253249, A325326, A325337, A325405.

Programs

Mathematica

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],UnsameQ@@Divide@@@Reverse/@Partition[primeptn[#],2,1]&]