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,1

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.

Links

Table of n, a(n) for n=1..67.

Example

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}

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]

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.

Sequence in context: A333559 A153381 A307750 * A319630 A324849 A091010

Adjacent sequences: A356731 A356732 A356733 * A356735 A356736 A356737

Keyword

nonn

Author

Gus Wiseman, Aug 26 2022

Status

approved