A356224 -id:A356224 - cp's OEIS frontend

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

Gus Wiseman, Aug 26 2022

nonn

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.

			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}

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.

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]

A356842 Numbers k such that the k-th composition in standard order does not cover an interval of positive integers (not gapless).

Original entry on oeis.org

9, 12, 17, 19, 24, 25, 28, 33, 34, 35, 39, 40, 48, 49, 51, 56, 57, 60, 65, 66, 67, 69, 70, 71, 73, 76, 79, 80, 81, 88, 96, 97, 98, 99, 100, 103, 104, 112, 113, 115, 120, 121, 124, 129, 130, 131, 132, 133, 134, 135, 137, 138, 139, 140, 141, 142, 143, 144, 145

Offset: 1

Gus Wiseman, Sep 01 2022

nonn

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The terms and their corresponding standard compositions begin:
   9: (3,1)
  12: (1,3)
  17: (4,1)
  19: (3,1,1)
  24: (1,4)
  25: (1,3,1)
  28: (1,1,3)
  33: (5,1)
  34: (4,2)
  35: (4,1,1)
  39: (3,1,1,1)
  40: (2,4)
  48: (1,5)
  49: (1,4,1)
  51: (1,3,1,1)
  56: (1,1,4)
  57: (1,1,3,1)
  60: (1,1,1,3)

Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
An unordered version is A073492, complement A073491.
These compositions are counted by the complement of A107428.
The complement is A356841.
The gapless but non-initial version is A356843, unordered A356845.
A356230 ranks gapless factorization lengths, firsts A356603.
A356233 counts factorizations into gapless numbers.
A356844 ranks compositions with at least one 1.
Cf. A053251, A055932, A073493, A132747, A137921, A286470, A333217, A356224/A356225.

nogapQ[m_]:=m=={}||Union[m]==Range[Min[m],Max[m]];
stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],!nogapQ[stc[#]]&]

A356223 Position of n-th appearance of 2n in the sequence of prime gaps (A001223). If 2n does not appear at least n times, set a(n) = -1.

Original entry on oeis.org

2, 6, 15, 79, 68, 121, 162, 445, 416, 971, 836, 987, 2888, 1891, 1650, 5637, 5518, 4834, 9237, 8152, 10045, 21550, 20248, 20179, 29914, 36070, 24237, 53355, 52873, 34206, 103134, 90190, 63755, 147861, 98103, 117467, 209102, 206423, 124954, 237847, 369223

Offset: 1

Gus Wiseman, Aug 04 2022

nonn

Prime gaps (A001223) are the differences between consecutive prime numbers. They begin: 1, 2, 2, 4, 2, 4, 2, 4, 6, ...

			We need the first 15 prime gaps (1, 2, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6) before we reach the 3rd appearance of 6, so a(6) = 15.

The first appearances are at A038664, seconds A356221.
Diagonal of A356222.
A001223 lists the prime gaps.
A073491 lists numbers with gapless prime indices.
A356224 counts divisors with gapless prime indices, complement A356225.
A356226 = gapless interval lengths of prime indices, run-lengths A287170.
Cf. A000005, A028334, A029709, A060681, A119313, A137921, A193829, A274121.

nn=1000;
gaps=Differences[Array[Prime,nn]];
Table[Position[gaps,2*n][[n,1]],{n,Select[Range[nn],Length[Position[gaps,2*#]]>=#&]}]

A356604 Number of integer compositions of n into odd parts covering an initial interval of odd positive integers.

Original entry on oeis.org

1, 1, 1, 1, 3, 4, 5, 9, 13, 24, 40, 61, 101, 160, 257, 415, 679, 1103, 1774, 2884, 4656, 7517, 12165, 19653, 31753, 51390, 83134, 134412, 217505, 351814, 569081, 920769, 1489587, 2409992, 3899347, 6309059, 10208628, 16518910, 26729830, 43254212, 69994082

Offset: 0

Gus Wiseman, Aug 30 2022

nonn

			The a(1) = 1 through a(8) = 13 compositions:
  (1)  (11)  (111)  (13)    (113)    (1113)    (133)      (1133)
                    (31)    (131)    (1131)    (313)      (1313)
                    (1111)  (311)    (1311)    (331)      (1331)
                            (11111)  (3111)    (11113)    (3113)
                                     (111111)  (11131)    (3131)
                                               (11311)    (3311)
                                               (13111)    (111113)
                                               (31111)    (111131)
                                               (1111111)  (111311)
                                                          (113111)
                                                          (131111)
                                                          (311111)
                                                          (11111111)
The a(9) = 24 compositions:
  (135)  (11133)  (1111113)  (111111111)
  (153)  (11313)  (1111131)
  (315)  (11331)  (1111311)
  (351)  (13113)  (1113111)
  (513)  (13131)  (1131111)
  (531)  (13311)  (1311111)
         (31113)  (3111111)
         (31131)
         (31311)
         (33111)

The case of partitions is A053251, ranked by A356232 and A356603.
These compositions are ranked by the intersection of A060142 and A333217.
This is the odd initial case of A107428.
This is the odd restriction of A107429.
This is the normal/covering case of A324969 (essentially A000045).
The non-initial version is A356605.
A000041 counts partitions, compositions A011782.
A055932 lists numbers with prime indices covering an initial interval.
A066208 lists numbers with all odd prime indices, counted by A000009.
Cf. A001221, A001222, A001227, A005408, A061395, A066205, A073493, A137921, A356224.

normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],normQ[(#+1)/2]&]],{n,0,15}]

More terms from Alois P. Heinz, Sep 01 2022

A356605 Number of integer compositions of n into odd parts covering an interval of odd positive integers.

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 6, 10, 15, 26, 41, 65, 104, 164, 262, 424, 687, 1112, 1792, 2898, 4677, 7556, 12197, 19699, 31836, 51466, 83234, 134593, 217674, 352057, 569452, 921165, 1490173, 2410784, 3900288, 6310436, 10210358, 16521108, 26733020, 43258086, 69999295

Offset: 0

Gus Wiseman, Aug 31 2022

nonn

			The a(1) = 1 through a(8) = 15 compositions:
  (1)  (11)  (3)    (13)    (5)      (33)      (7)        (35)
             (111)  (31)    (113)    (1113)    (133)      (53)
                    (1111)  (131)    (1131)    (313)      (1133)
                            (311)    (1311)    (331)      (1313)
                            (11111)  (3111)    (11113)    (1331)
                                     (111111)  (11131)    (3113)
                                               (11311)    (3131)
                                               (13111)    (3311)
                                               (31111)    (111113)
                                               (1111111)  (111131)
                                                          (111311)
                                                          (113111)
                                                          (131111)
                                                          (311111)
                                                          (11111111)

These compositions are ranked by the intersection of A060142 and A356841.
Before restricting to odds we have A107428, initial A107429.
The not necessarily gapless version is A324969 (essentially A000045).
The strict case is A332032.
The initial case is A356604.
The case of partitions is A356737, initial A053251 (ranked by A356232).
A000041 counts partitions, compositions A011782.
A066208 lists numbers with all odd prime indices, counted by A000009.
A073491 lists numbers with gapless prime indices, initial A055932.
Cf. A001227, A066205, A137921, A333217, A356224, A356846.

nogapQ[m_]:=m=={}||Union[m]==Range[Min[m],Max[m]];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], And@@OddQ/@#&&nogapQ[(#+1)/2]&]],{n,0,15}]

More terms from Alois P. Heinz, Sep 01 2022

A356931 Number of multiset partitions of the prime indices of n into multisets of odd numbers. Number of factorizations of n into members of A066208.

Original entry on oeis.org

1, 1, 0, 2, 1, 0, 0, 3, 0, 2, 1, 0, 0, 0, 0, 5, 1, 0, 0, 4, 0, 2, 1, 0, 2, 0, 0, 0, 0, 0, 1, 7, 0, 2, 0, 0, 0, 0, 0, 7, 1, 0, 0, 4, 0, 2, 1, 0, 0, 4, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 2, 0, 11, 0, 0, 1, 4, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 12, 0, 2, 1, 0, 2, 0

Offset: 1

Gus Wiseman, Sep 08 2022

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The a(440) = 21 multiset partitions of {1,1,1,3,5}:
  {1}{1}{1}{3}{5}  {1}{1}{1}{35}  {1}{1}{135}  {1}{1135}  {11135}
                   {1}{1}{13}{5}  {1}{11}{35}  {11}{135}
                   {1}{11}{3}{5}  {11}{13}{5}  {111}{35}
                   {1}{1}{3}{15}  {1}{13}{15}  {113}{15}
                                  {11}{3}{15}  {13}{115}
                                  {1}{3}{115}  {3}{1115}
                                  {1}{5}{113}  {5}{1113}
                                  {3}{111}{5}

Gus Wiseman, Counting and ranking classes of multiset partitions related to gapless multisets

Positions of 0's are A324929, complement A066208.
A000688 counts factorizations into prime powers.
A001055 counts factorizations.
A001221 counts prime divisors, sum A001414.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
A356069 counts gapless divisors, initial A356224 (complement A356225).
Other types: A000009, A000012, A000041, A089259, A356930.
Other conditions: A050320, A050330, A356936, A322585, A356233, A356945.
Cf. A003963, A073491, A107742, A287170, A325534, A325535, A340852, A356234.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],And@@(OddQ[Times@@primeMS[#]]&/@#)&]],{n,100}]

a(n) = 0 if n is in A324929, otherwise a(n) = A001055(n).

A356221 Position of second appearance of 2n in the sequence of prime gaps A001223; if 2n does not appear at least twice, a(n) = -1.

Original entry on oeis.org

3, 6, 11, 72, 42, 47, 62, 295, 180, 259, 297, 327, 446, 462, 650, 1315, 1059, 1532, 4052, 2344, 3732, 3861, 8805, 7234, 4754, 2810, 4231, 14124, 5949, 9834, 17200, 10229, 19724, 25248, 15927, 30765, 42673, 28593, 24554, 50523, 44227, 44390, 29040, 89715, 47350

Offset: 1

Gus Wiseman, Aug 02 2022

nonn

Prime gaps (A001223) are the differences between consecutive prime numbers. They begin: 1, 2, 2, 4, 2, 4, 2, 4, 6, ...

The position of the first (instead of second) appearance of 2n is A038664.
Column k = 2 of A356222.
The position of the n-th appearance of 2n is A356223.
A001223 lists the prime gaps, reduced A028334.
A073491 lists numbers with gapless prime indices.
A274121 counts appearances of the n-th prime gap in those prior.
A356226 gives the lengths of maximal gapless intervals of prime indices.
Cf. A029709, A066205, A137921, A193829, A287170, A328335, A328457, A356224, A356225.

nn=1000;
gaps=Differences[Array[Prime,nn]];
mnrm[s_]:=If[Min@@s==1,mnrm[DeleteCases[s-1,0]]+1,0];
Table[Position[gaps,2*n][[2,1]],{n,mnrm[Select[Range[nn],Length[Position[gaps,2*#]]>=2&]]}]

A356222 Array read by antidiagonals upwards where A(n,k) is the position of the k-th appearance of 2n in the sequence of prime gaps A001223. If A001223 does not contain 2n at least k times, set A(n,k) = -1.

Original entry on oeis.org

2, 4, 3, 9, 6, 5, 24, 11, 8, 7, 34, 72, 15, 12, 10, 46, 42, 77, 16, 14, 13, 30, 47, 53, 79, 18, 19, 17, 282, 62, 91, 61, 87, 21, 22, 20, 99, 295, 66, 97, 68, 92, 23, 25, 26, 154, 180, 319, 137, 114, 80, 94, 32, 27, 28, 189, 259, 205, 331, 146, 121, 82, 124, 36, 29, 33

Offset: 1

Gus Wiseman, Aug 04 2022

Prime gaps (A001223) are the differences between consecutive prime numbers. They begin: 1, 2, 2, 4, 2, 4, 2, 4, 6, ...

This is a permutation of the positive integers > 1.

			Array begins:
        k=1 k=2 k=3 k=4 k=5 k=6 k=7 k=8 k=9
  n=1:   2   3   5   7  10  13  17  20  26
  n=2:   4   6   8  12  14  19  22  25  27
  n=3:   9  11  15  16  18  21  23  32  36
  n=4:  24  72  77  79  87  92  94 124 126
  n=5:  34  42  53  61  68  80  82 101 106
  n=6:  46  47  91  97 114 121 139 168 197
  n=7:  30  62  66 137 146 150 162 223 250
  n=8: 282 295 319 331 335 378 409 445 476
  n=9:  99 180 205 221 274 293 326 368 416
For example, the positions in A001223 of appearances of 2*3 begin: 9, 11, 15, 16, 18, 21, 23, ..., which is row n = 3 (A320701).

The row containing n is A028334(n).
Row n = 1 is A029707.
Row n = 2 is A029709.
Column k = 1 is A038664.
The column containing n is A274121(n).
Column k = 2 is A356221.
The diagonal A(n,n) is A356223.
A001223 lists the prime gaps.
A073491 lists numbers with gapless prime indices.
A356224 counts even divisors with gapless prime indices, complement A356225.
Cf. A066205, A119313, A193829, A287170, A328457, A356226, A356232.

gapa=Differences[Array[Prime,10000]];
Table[Position[gapa,2*(k-n+1)][[n,1]],{k,6},{n,k}]

A356733 Number of neighborless parts in the integer partition with Heinz number n.

Original entry on oeis.org

0, 1, 1, 1, 1, 0, 1, 1, 1, 2, 1, 0, 1, 2, 0, 1, 1, 0, 1, 2, 2, 2, 1, 0, 1, 2, 1, 2, 1, 0, 1, 1, 2, 2, 0, 0, 1, 2, 2, 2, 1, 1, 1, 2, 0, 2, 1, 0, 1, 2, 2, 2, 1, 0, 2, 2, 2, 2, 1, 0, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 0, 1, 2, 0, 2, 0, 1, 1, 2, 1, 2, 1, 1, 2, 2, 2, 2, 1, 0, 2, 2, 2, 2, 2, 0, 1, 2, 2, 2, 1, 1, 1, 2, 0

Offset: 1

Gus Wiseman, Aug 26 2022

nonn

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.

			The prime indices of 42 are {1,2,4}, of which only 4 is neighborless, so a(42) = 1.
The prime indices of 462 are {1,2,4,5}, all of which have neighbors, so a(462) = 0.
The prime indices of 1300 are {1,1,3,3,6}, with neighborless parts {1,3,6}, so a(1300) = 3.

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences related to prime indices in the factorization of n.

Positions of first appearances are 1 followed by A066205.
Dominated by A287170 (firsts also A066205).
Positions of terms > 0 are A356734.
The complement is counted by A356735.
A001221 counts distinct prime factors, sum A001414.
A003963 multiplies together prime indices.
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.
A355393 counts partitions w/o a neighborless singleton, complement A356235.
A355394 counts partitions w/o a neighborless part, complement A356236.
A356069 counts gapless divisors, initial A356224 (complement A356225).
A356607 counts strict partitions w/ a neighborless part, complement A356606.
Cf. A000005, A066312, A286470, A289508, A325160, A328166, A328335, A356231, A356233, A356234, A356237.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[Union[primeMS[n]],!MemberQ[primeMS[n],#-1]&&!MemberQ[primeMS[n],#+1]&]],{n,100}]

A356733(n) = if(1==n,0,my(pis=apply(primepi,factor(n)[,1])); sum(i=1, #pis, ((n%prime(pis[i]+1)) && (pis[i]==1 || (n%prime(pis[i]-1)))))); \\ Antti Karttunen, Jan 28 2025

a(n) = A001221(n) - A356735(n).

Data section extended to a(105) by Antti Karttunen, Jan 28 2025

A356737 Number of integer partitions of n into odd parts covering an interval of odd numbers.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 3, 4, 4, 6, 6, 7, 8, 9, 10, 13, 13, 15, 17, 19, 21, 25, 26, 29, 33, 37, 40, 46, 49, 54, 61, 66, 72, 81, 87, 97, 106, 115, 125, 139, 150, 163, 179, 193, 210, 232, 248, 269, 293, 317, 343, 373, 401, 433, 470, 507, 545, 590, 633, 682, 737, 790

Offset: 0

Gus Wiseman, Sep 03 2022

nonn

			The a(1) = 1 through a(9) = 6 partitions:
  1  11  3    31    5      33      7        53        9
         111  1111  311    3111    331      3311      333
                    11111  111111  31111    311111    531
                                   1111111  11111111  33111
                                                      3111111
                                                      111111111

The strict case is A034178, for compositions A332032.
The initial case is A053251, ranked by A356232 and A356603.
The initial case for compositions is A356604.
The version for compositions is A356605, ranked by A060142 /\ A356841.
A000041 counts partitions, compositions A011782.
A066208 lists numbers with all odd prime indices, counted by A000009.
A073491 lists gapless numbers, initial A055932.
Cf. A001227, A066205, A107428, A107429, A333217, A356224, A356846.

nogapQ[m_]:=Or[m=={},Union[m]==Range[Min[m],Max[m]]];
Table[Length[Select[IntegerPartitions[n],And@@OddQ/@#&&nogapQ[(#+1)/2]&]],{n,0,30}]

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A356842 Numbers k such that the k-th composition in standard order does not cover an interval of positive integers (not gapless).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A356223 Position of n-th appearance of 2n in the sequence of prime gaps (A001223). If 2n does not appear at least n times, set a(n) = -1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A356604 Number of integer compositions of n into odd parts covering an initial interval of odd positive integers.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A356605 Number of integer compositions of n into odd parts covering an interval of odd positive integers.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A356931 Number of multiset partitions of the prime indices of n into multisets of odd numbers. Number of factorizations of n into members of A066208.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A356221 Position of second appearance of 2n in the sequence of prime gaps A001223; if 2n does not appear at least twice, a(n) = -1.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A356222 Array read by antidiagonals upwards where A(n,k) is the position of the k-th appearance of 2n in the sequence of prime gaps A001223. If A001223 does not contain 2n at least k times, set A(n,k) = -1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A356733 Number of neighborless parts in the integer partition with Heinz number n.

Views

Author

Keywords

Comments