A073491 -id:A073491 - cp's OEIS frontend

A356237 Heinz numbers of integer partitions with a neighborless singleton.

2, 3, 5, 7, 10, 11, 13, 14, 17, 19, 20, 21, 22, 23, 26, 28, 29, 31, 33, 34, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 78, 79, 80, 82, 83, 84, 85, 86, 87, 88, 89, 91, 92, 93

Offset: 1

Gus Wiseman, Aug 24 2022

nonn

A part x is neighborless if neither x - 1 nor x + 1 are parts, and a singleton if it appears only once.
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.
Also numbers that, for some prime index x, are not divisible by prime(x)^2, prime(x - 1), or prime(x + 1). Here, a prime index of n is a number m such that prime(m) divides n.

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

The complement is counted by A355393.
These partitions are counted by A356235.
Not requiring a singleton gives A356734.
A001221 counts distinct prime factors, with 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).
A356236 counts partitions with a neighborless part, complement A355394.
A356607 counts strict partitions w/ a neighborless part, complement A356606.
Cf. A286470, 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[Count[ptn,x]==1&&!MemberQ[ptn,x-1]&&!MemberQ[ptn,x+1],{x,Union[ptn]}]]@*primeMS]

A355393 Number of integer partitions of n such that, for all parts x of multiplicity 1, either x - 1 or x + 1 is also a part.

Original entry on oeis.org

1, 0, 1, 2, 3, 4, 6, 7, 10, 14, 17, 23, 32, 39, 51, 67, 83, 105, 134, 165, 206, 256, 312, 385, 475, 573, 697, 849, 1021, 1231, 1483, 1771, 2121, 2534, 3007, 3575, 4245, 5008, 5914, 6979, 8198, 9626, 11292, 13201, 15430, 18010, 20960, 24389, 28346, 32855, 38066

Offset: 0

Gus Wiseman, Aug 26 2022

nonn

These are partitions without a neighborless singleton, where a part x is neighborless if neither x - 1 nor x + 1 are parts, and a singleton if it appears only once.

			The a(0) = 1 through a(8) = 10 partitions:
  ()  .  (11)  (21)   (22)    (32)     (33)      (43)       (44)
               (111)  (211)   (221)    (222)     (322)      (332)
                      (1111)  (2111)   (321)     (2221)     (2222)
                              (11111)  (2211)    (3211)     (3221)
                                       (21111)   (22111)    (3311)
                                       (111111)  (211111)   (22211)
                                                 (1111111)  (32111)
                                                            (221111)
                                                            (2111111)
                                                            (11111111)

This is the singleton case of A355394, complement A356236.
The complement is counted by A356235.
These partitions are ranked by the complement of A356237.
The strict case is A356606, complement A356607.
A000041 counts integer partitions, strict A000009.
A000837 counts relatively prime partitions, ranked by A289509.
A007690 counts partitions with no singletons, complement A183558.
Cf. A073491, A325160, A328171, A328172, A328187, A328220, A356233.

Table[Length[Select[IntegerPartitions[n],Function[ptn,!Or@@Table[Count[ptn,x]==1&&!MemberQ[ptn,x-1]&&!MemberQ[ptn,x+1],{x,Union[ptn]}]]]],{n,0,30}]

A356231 Heinz number of the sequence (A356226) of lengths of maximal gapless submultisets of the prime indices of n.

Original entry on oeis.org

1, 2, 2, 3, 2, 3, 2, 5, 3, 4, 2, 5, 2, 4, 3, 7, 2, 5, 2, 6, 4, 4, 2, 7, 3, 4, 5, 6, 2, 5, 2, 11, 4, 4, 3, 7, 2, 4, 4, 10, 2, 6, 2, 6, 5, 4, 2, 11, 3, 6, 4, 6, 2, 7, 4, 10, 4, 4, 2, 7, 2, 4, 6, 13, 4, 6, 2, 6, 4, 6, 2, 11, 2, 4, 5, 6, 3, 6, 2, 14, 7, 4, 2, 10

Offset: 1

Gus Wiseman, Aug 18 2022

nonn

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.
A multiset is gapless if it covers an unbroken interval of positive integers. For example, the multiset {2,3,5,5,6,9} has three maximal gapless submultisets: {2,3}, {5,5,6}, {9}.
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 prime indices of 18564 are {1,1,2,4,6,7}, with maximal gapless submultisets {1,1,2}, {4}, {6,7}. These have lengths (3,1,2), with Heinz number 30, so a(18564) = 30.

Positions of prime terms are A073491, complement A073492.
Positions of terms with bigomega 2-4 are A073493-A073495.
Applying bigomega gives A287170, firsts A066205, even bisection A356229.
These are the Heinz numbers of the rows of A356226.
Minimal/maximal prime indices are A356227/A356228.
A version for standard compositions is A356230, firsts A356232/A356603.
A001221 counts distinct prime factors, with sum A001414.
A003963 multiplies together the prime indices.
A056239 adds up the prime indices, row sums of A112798.
A132747 counts non-isolated divisors, complement A132881.
A356069 counts gapless divisors, initial A356224 (complement A356225).
Cf. A000005, A001222, A055932, A060680-A060683, A193829, A286470, A328166, A356233-A356237.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Times@@Prime/@Length/@Split[primeMS[n],#1>=#2-1&],{n,100}]

A001222(a(n)) = A287170(n).
A055396(a(n)) = A356227(n).
A061395(a(n)) = A356228(n).

A384889 Number of subsets of {1..n} with all equal lengths of maximal anti-runs (increasing by more than 1).

Original entry on oeis.org

1, 2, 4, 8, 14, 23, 37, 59, 93, 146, 230, 365, 584, 940, 1517, 2450, 3959, 6404, 10373, 16822, 27298, 44297, 71843, 116429, 188550, 305200, 493930, 799422, 1294108, 2095291, 3392736, 5493168, 8892148, 14390372, 23282110, 37660759, 60914308, 98528312, 159386110

Offset: 0

Gus Wiseman, Jun 18 2025

nonn

			The subset {3,6,7,9,10,12} has maximal anti-runs ((3,6),(7,9),(10,12)), with lengths (2,2,2), so is counted under a(12).
The a(0) = 1 through a(4) = 14 subsets:
  {}  {}   {}     {}       {}
      {1}  {1}    {1}      {1}
           {2}    {2}      {2}
           {1,2}  {3}      {3}
                  {1,2}    {4}
                  {1,3}    {1,2}
                  {2,3}    {1,3}
                  {1,2,3}  {1,4}
                           {2,3}
                           {2,4}
                           {3,4}
                           {1,2,3}
                           {2,3,4}
                           {1,2,3,4}

Christian Sievers, Table of n, a(n) for n = 0..1000

For runs instead of anti-runs we have A243815, distinct A384175, complement A384176.
For distinct instead or equal lengths we have A384177, ranks A384879.
For partitions instead of subsets we have A384888.
A034296 counts flat or gapless partitions, ranks A066311 or A073491.
A034839 counts subsets by number of maximal runs, for strict partitions A116674.
A047966 counts uniform partitions (equal multiplicities), ranks A072774.
A384893 counts subsets by number of maximal anti-runs, for partitions A268193, A384905.
Cf. A010027, A044813, A047993, A356606, A384880, A384886, A384890.

Table[Length[Select[Subsets[Range[n]],SameQ@@Length/@Split[#,#2!=#1+1&]&]],{n,0,10}]

lista(n)=Vec(sum(i=1,(n+1)\2,1/(1-x^(2*i-1)/(1-x)^(i-1))-1,1-x+O(x*x^n))/(1-x)^2) \\ Christian Sievers, Jun 20 2025

G.f.: ( Sum_{i>=1} (1/(1-x^(2*i-1)/(1-x)^(i-1))-1) + 1-x ) / (1-x)^2. - Christian Sievers, Jun 21 2025

a(21) and beyond from Christian Sievers, Jun 20 2025

A356234 Irregular triangle read by rows where row n is the ordered factorization of n into maximal gapless divisors.

Original entry on oeis.org

2, 3, 4, 5, 6, 7, 8, 9, 2, 5, 11, 12, 13, 2, 7, 15, 16, 17, 18, 19, 4, 5, 3, 7, 2, 11, 23, 24, 25, 2, 13, 27, 4, 7, 29, 30, 31, 32, 3, 11, 2, 17, 35, 36, 37, 2, 19, 3, 13, 8, 5, 41, 6, 7, 43, 4, 11, 45, 2, 23, 47, 48, 49, 2, 25, 3, 17, 4, 13, 53, 54, 5, 11, 8

Offset: 1

Gus Wiseman, Aug 28 2022

Row-products are the positive integers 1, 2, 3, ...

			The first 16 rows:
   1 =
   2 = 2
   3 = 3
   4 = 4
   5 = 5
   6 = 6
   7 = 7
   8 = 8
   9 = 9
  10 = 2 * 5
  11 = 11
  12 = 12
  13 = 13
  14 = 2 * 7
  15 = 15
  16 = 16
The factorization of 18564 is 18564 = 12*7*221, so row 18564 is {12,7,221}.

Row-lengths are A287170, firsts A066205, even bisection A356229.
Applying bigomega to all parts gives A356226, statistics A356227-A356232.
A001055 counts factorizations.
A001221 counts distinct prime factors, sum A001414.
A003963 multiplies together the prime indices.
A056239 adds up the prime indices, row sums of A112798.
A132747 counts non-isolated divisors, complement A132881.
A356069 counts gapless divisors, initial A356224 (complement A356225).
Cf. A000005, A001222, A060680-A060683, A073491-A073495, A193829, A330103, A356233-A356237.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Times@@Prime/@#&/@Split[primeMS[n],#1>=#2-1&],{n,100}]

A365921 Triangle read by rows where T(n,k) is the number of integer partitions y of n such that k is the greatest member of {0..n} that is not the sum of any nonempty submultiset of y.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 2, 0, 1, 0, 2, 0, 1, 2, 0, 4, 0, 0, 1, 2, 0, 5, 0, 0, 1, 1, 4, 0, 8, 0, 0, 0, 1, 2, 4, 0, 10, 0, 0, 0, 2, 1, 2, 7, 0, 16, 0, 0, 0, 0, 2, 1, 3, 8, 0, 20, 0, 0, 0, 0, 2, 2, 2, 4, 12, 0, 31, 0, 0, 0, 0, 0, 2, 2, 2, 5, 14, 0

Offset: 0

Gus Wiseman, Sep 30 2023

			The partition (6,2,1,1) has subset-sums 0, 1, 2, 3, 4, 6, 7, 8, 9, 10 so is counted under T(10,5).
Triangle begins:
   1
   1  0
   1  1  0
   2  0  1  0
   2  0  1  2  0
   4  0  0  1  2  0
   5  0  0  1  1  4  0
   8  0  0  0  1  2  4  0
  10  0  0  0  2  1  2  7  0
  16  0  0  0  0  2  1  3  8  0
  20  0  0  0  0  2  2  2  4 12  0
  31  0  0  0  0  0  2  2  2  5 14  0
  39  0  0  0  0  0  4  2  2  3  6 21  0
  55  0  0  0  0  0  0  4  2  4  3  9 24  0
  71  0  0  0  0  0  0  5  4  2  4  5 10 34  0
Row n = 8 counts the following partitions:
  (4211)      .  .  .  (521)   (611)  (71)   (8)     .
  (41111)              (5111)         (431)  (62)
  (3311)                                     (53)
  (3221)                                     (44)
  (32111)                                    (422)
  (311111)                                   (332)
  (22211)                                    (2222)
  (221111)
  (2111111)
  (11111111)

Steven R. Finch, Monoids of natural numbers, March 17, 2009.

Row sums are A000041.
Diagonal k = n-1 is A002865.
Column k = 1 is A126796 (complete partitions), ranks A325781.
Central diagonal n = 2k is A126796 also.
For parts instead of sums we have A339737, rank stat A339662, min A257993.
This is the triangle for the rank statistic A365920.
Latter row sums are A365924 (incomplete partitions), ranks A365830.
Column sums are A366127.
A055932 lists numbers whose prime indices cover an initial interval.
A056239 adds up prime indices, row sums of A112798.
A073491 lists numbers with gap-free prime indices.
A238709/A238710 count partitions by least/greatest difference.
A342050/A342051 have prime indices with odd/even least gap.
A366128 gives the least non-subset-sum of prime indices.
Cf. A001522, A079068, A098743, A264401, A286469 or A286470, A339886.

nmz[y_]:=Complement[Range[Total[y]],Total/@Subsets[y]];
Table[Length[Select[IntegerPartitions[n],Max@@Prepend[nmz[#],0]==k&]],{n,0,10},{k,0,n}]

A356228 Greatest size of a gapless submultiset of the prime indices of n.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 1, 3, 2, 1, 1, 3, 1, 1, 2, 4, 1, 3, 1, 2, 1, 1, 1, 4, 2, 1, 3, 2, 1, 3, 1, 5, 1, 1, 2, 4, 1, 1, 1, 3, 1, 2, 1, 2, 3, 1, 1, 5, 2, 2, 1, 2, 1, 4, 1, 3, 1, 1, 1, 4, 1, 1, 2, 6, 1, 2, 1, 2, 1, 2, 1, 5, 1, 1, 3, 2, 2, 2, 1, 4, 4, 1, 1, 3, 1, 1, 1

Offset: 1

Gus Wiseman, Aug 13 2022

nonn

A sequence is gapless if it covers an unbroken interval of positive integers. For example, the multiset {2,3,5,5,6,9} has three maximal gapless intervals: {2,3}, {5,5,6}, {9}.

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 prime indices of 700 are {1,1,3,3,4}, with maximal gapless submultisets {1,1}, {3,3,4}, so a(700) = 3.
The prime indices of 18564 are {1,1,2,4,6,7}, with maximal gapless submultisets {1,1,2}, {4}, {6,7}, so a(18564) = 3.

Positions of first appearances are A000079.
The maximal gapless submultisets are counted by A287170, firsts A066205.
These are the row-maxima of A356226, firsts A356232.
The smallest instead of greatest size is A356227.
A001221 counts distinct prime factors, with sum A001414.
A001222 counts prime factors with multiplicity.
A001223 lists the prime gaps, reduced A028334.
A003963 multiplies together the prime indices of n.
A056239 adds up prime indices, row sums of A112798.
A073491 lists numbers with gapless prime indices, cf. A073492-A073495.
A356069 counts gapless divisors.
A356224 counts even gapless divisors, complement A356225.
Cf. A000005, A055874, A060680-A060683, A132747, A132881, A137921, A193829, A286470, A328162, A328457, A356229.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[If[n==1,0,Max@@Length/@Split[primeMS[n],#1>=#2-1&]],{n,100}]

a(n) = A333766(A356230(n)).

a(n) = A061395(A356231(n)).

A356229 Number of maximal gapless submultisets of the prime indices of 2n.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 2, 2, 1, 3, 2, 2, 2, 2, 1, 2, 2, 2, 1, 3, 2, 2, 2, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 2, 3, 2, 2, 2, 2, 1, 3, 2, 2, 2, 3, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1

Offset: 1

Gus Wiseman, Aug 16 2022

nonn

A sequence is gapless if it covers an unbroken interval of positive integers. For example, the multiset {2,3,5,5,6,9} has three maximal gapless submultisets: {2,3}, {5,5,6}, {9}.
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.
This is a bisection of A287170, but is important in its own right because the even numbers are exactly those whose prime indices begin with 1.

			The prime indices of 2*9282 are {1,1,2,4,6,7}, with maximal gapless submultisets {1,1,2}, {4}, {6,7}, so a(9282) = 3.

Antti Karttunen, Table of n, a(n) for n = 1..100000

This is the even (bisected) case of A287170, firsts A066205.
Alternate row-lengths of A356226, minima A356227(2n), maxima A356228(2n).
A001221 counts distinct prime factors, sum A001414.
A001222 counts prime indices, listed by A112798, sum A056239.
A003963 multiplies together the prime indices of n.
A073093 counts the prime indices of 2n.
A073491 lists numbers with gapless prime indices, cf. A073492-A073495.
Cf. A000005, A060680, A060681, A132747, A132881, A286470, A289509, A356230, A356231, A356232.

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

A287170(n) = { my(f=factor(n)); if(#f~==0, return (0), return(#f~ - sum(i=1, #f~-1, if (primepi(f[i, 1])+1 == primepi(f[i+1, 1]), 1, 0)))); };
A356229(n) = A287170(2*n); \\ Antti Karttunen, Jan 19 2025

a(n) = A287170(2n).

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

A339662 Greatest gap in the partition with Heinz number n.

Original entry on oeis.org

0, 0, 1, 0, 2, 0, 3, 0, 1, 2, 4, 0, 5, 3, 1, 0, 6, 0, 7, 2, 3, 4, 8, 0, 2, 5, 1, 3, 9, 0, 10, 0, 4, 6, 2, 0, 11, 7, 5, 2, 12, 3, 13, 4, 1, 8, 14, 0, 3, 2, 6, 5, 15, 0, 4, 3, 7, 9, 16, 0, 17, 10, 3, 0, 5, 4, 18, 6, 8, 2, 19, 0, 20, 11, 1, 7, 3, 5, 21, 2, 1, 12

Offset: 1

Gus Wiseman, Apr 20 2021

nonn

We define the greatest gap of a partition to be the greatest nonnegative integer less than the greatest part and not in the partition.
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.
Also the index of the greatest prime, up to the greatest prime index of n, not dividing n. A prime index of n is a number m such that prime(m) divides n.

George E. Andrews and David Newman, Partitions and the Minimal Excludant, Annals of Combinatorics, Volume 23, May 2019, Pages 249-254.
FindStat, Dyson's crank of a partition.
Brian Hopkins, James A. Sellers, and Dennis Stanton, Dyson's Crank and the Mex of Integer Partitions, arXiv:2009.10873 [math.CO], 2020.
Wikipedia, Mex (mathematics)

Positions of first appearances are A000040.
Positions of 0's are A055932.
The version for positions of 1's in reversed binary expansion is A063250.
The prime itself (not just the index) is A079068.
The version for crank is A257989.
The minimal instead of maximal version is A257993.
The version for greatest difference is A286469 or A286470.
Positive integers by Heinz weight and image are counted by A339737.
Positions of 1's are A339886.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A056239 adds up prime indices, row sums of A112798.
A073491 lists numbers with gap-free prime indices.
A238709/A238710 count partitions by least/greatest difference.
A342050/A342051 have prime indices with odd/even least gap.
Cf. A001223, A001522, A005117, A018818, A029707, A064391, A098743, A264401, A325351, A333214, A342192.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
maxgap[q_]:=Max@@Complement[Range[0,If[q=={},0,Max[q]]],q];
Table[maxgap[primeMS[n]],{n,100}]

a(n) = A000720(A079068(n)).

A350841 Heinz numbers of integer partitions with a difference < -1 and a conjugate difference < -1.

Original entry on oeis.org

20, 28, 40, 44, 52, 56, 63, 68, 76, 80, 84, 88, 92, 99, 100, 104, 112, 116, 117, 124, 126, 132, 136, 140, 148, 152, 153, 156, 160, 164, 168, 171, 172, 176, 184, 188, 189, 196, 198, 200, 204, 207, 208, 212, 220, 224, 228, 232, 234, 236, 244, 248, 252, 260, 261

Offset: 1

Gus Wiseman, Jan 26 2022

nonn

We define a difference of a partition to be a difference of two adjacent parts.

			The terms together with their prime indices begin:
   20: (3,1,1)
   28: (4,1,1)
   40: (3,1,1,1)
   44: (5,1,1)
   52: (6,1,1)
   56: (4,1,1,1)
   63: (4,2,2)
   68: (7,1,1)
   76: (8,1,1)
   80: (3,1,1,1,1)
   84: (4,2,1,1)
   88: (5,1,1,1)
   92: (9,1,1)
   99: (5,2,2)

Heinz number rankings are in parentheses below.
Taking just one condition gives (A073492) and (A065201), counted by A239955.
These partitions are counted by A350839.
A000041 = integer partitions, strict A000009.
A034296 = partitions with no gaps (A073491), strict A001227 (A073485).
A090858 = partitions with a single gap of size 1 (A325284).
A116931 = partitions with no successions (A319630), strict A003114.
A116932 = partitions with no successions or gaps of size 1, strict A025157.
A350842 = partitions with no gaps of size 1, strict A350844, sets A005314.
Cf. A000070, A024619, A026424, A055932, A183558, A277103, A305148, A321440, A350838.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],(Min@@Differences[Reverse[primeMS[#]]]<-1)&&(Min@@Differences[conj[primeMS[#]]]<-1)&]

cp's OEIS Frontend

A356237 Heinz numbers of integer partitions with a neighborless singleton.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A355393 Number of integer partitions of n such that, for all parts x of multiplicity 1, either x - 1 or x + 1 is also a part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A356231 Heinz number of the sequence (A356226) of lengths of maximal gapless submultisets of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A384889 Number of subsets of {1..n} with all equal lengths of maximal anti-runs (increasing by more than 1).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A356234 Irregular triangle read by rows where row n is the ordered factorization of n into maximal gapless divisors.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A365921 Triangle read by rows where T(n,k) is the number of integer partitions y of n such that k is the greatest member of {0..n} that is not the sum of any nonempty submultiset of y.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A356228 Greatest size of a gapless submultiset of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A356229 Number of maximal gapless submultisets of the prime indices of 2n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI