A356734 Heinz numbers of integer partitions with at least one neighborless part.

2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 16, 17, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 78, 79, 80, 81, 82, 83

Offset: 1

Author

Gus Wiseman, Aug 26 2022

Keywords

• nonn

Comments

First differs from A319630 in lacking 1 and having 42 (prime indices: {1,2,4}).

A part x is neighborless if neither x - 1 nor x + 1 are parts.

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.

Examples

			The terms together with their prime indices begin:
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   10: {1,3}
   11: {5}
   13: {6}
   14: {1,4}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
		

Crossrefs

These partitions are counted by A356236.

The singleton case is A356237, counted by A356235 (complement A355393).

The strict case is counted by A356607, complement A356606.

The complement is A356736, counted by A355394.

A001221 counts distinct prime factors, sum A001414.

A003963 multiplies together the prime indices of n.

A007690 counts partitions with no singletons, complement A183558.

A056239 adds up prime indices, row sums of A112798, lengths A001222.

A073491 lists numbers with gapless prime indices, complement A073492.

A132747 counts non-isolated divisors, complement A132881.

A356069 counts gapless divisors, initial A356224 (complement A356225).

Cf. A000005, A286470, A287170 (firsts A066205), A289508, A325160, A328166, A328335, A356231, A356233, A356234.

Programs

Mathematica

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Function[ptn,Or@@Table[!MemberQ[ptn,x-1]&&!MemberQ[ptn,x+1],{x,Union[ptn]}]]@*primeMS]