A098859 -id:A098859 - cp's OEIS frontend

A351017 Number of binary words of length n with all distinct run-lengths.

1, 2, 2, 6, 6, 10, 22, 26, 38, 54, 114, 130, 202, 266, 386, 702, 870, 1234, 1702, 2354, 3110, 5502, 6594, 9514, 12586, 17522, 22610, 31206, 48630, 60922, 83734, 111482, 149750, 196086, 261618, 336850, 514810, 631946, 862130, 1116654, 1502982, 1916530, 2555734, 3242546

Offset: 0

Gus Wiseman, Feb 07 2022

nonn

			The a(0) = 1 through a(6) = 22 words:
  {}  0   00   000   0000   00000   000000
      1   11   001   0001   00001   000001
               011   0111   00011   000011
               100   1000   00111   000100
               110   1110   01111   000110
               111   1111   10000   001000
                            11000   001110
                            11100   001111
                            11110   011000
                            11111   011100
                                    011111
                                    100000
                                    100011
                                    100111
                                    110000
                                    110001
                                    110111
                                    111001
                                    111011
                                    111100
                                    111110
                                    111111

Using binary expansions instead of words gives A032020, ranked by A044813.
The version for partitions is A098859.
The complement is counted by twice A261982.
The version for compositions is A329739, for runs A351013.
For runs instead of run-lengths we have A351016, twice A351018.
The version for patterns is A351292, for runs A351200.
A000120 counts binary weight.
A001037 counts binary Lyndon words, necklaces A000031, aperiodic A027375.
A005811 counts runs in binary expansion.
A011782 counts integer compositions.
A242882 counts compositions with distinct multiplicities.
A297770 counts distinct runs in binary expansion.
A325545 counts compositions with distinct differences.
A329767 counts binary words by runs-resistance.
A351014 counts distinct runs in standard compositions.
A351204 counts partitions where every permutation has all distinct runs.
A351290 ranks compositions with all distinct runs.
Cf. A003242, A098504, A106356, A116608, A175413, A233564, A238130 or A238279, A328592, A334028, A350952.

Table[Length[Select[Tuples[{0,1},n],UnsameQ@@Length/@Split[#]&]],{n,0,10}]

from itertools import groupby, product
def adrl(s):
    runlens = [len(list(g)) for k, g in groupby(s)]
    return len(runlens) == len(set(runlens))
def a(n):
    if n == 0: return 1
    return 2*sum(adrl("1"+"".join(w)) for w in product("01", repeat=n-1))
print([a(n) for n in range(20)]) # Michael S. Branicky, Feb 08 2022

a(n>0) = 2 * A032020(n).

a(25)-a(32) from Michael S. Branicky, Feb 08 2022

More terms from David A. Corneth, Feb 08 2022 using data from A032020

A383708 Number of integer partitions of n such that it is possible to choose a family of pairwise disjoint strict integer partitions, one of each part.

Original entry on oeis.org

1, 1, 2, 2, 3, 5, 5, 7, 8, 13, 14, 18, 22, 27, 36, 41, 50, 61, 73, 86

Offset: 0

Gus Wiseman, May 07 2025

Also the number of integer partitions y of n whose normal multiset (in which i appears y_i times) is a Look-and-Say partition.

			For y = (3,3) we can choose disjoint strict partitions ((2,1),(3)), so (3,3) is counted under a(6).
The a(1) = 1 through a(9) = 8 partitions:
  (1)  (2)  (3)    (4)    (5)    (6)      (7)      (8)      (9)
            (2,1)  (3,1)  (3,2)  (3,3)    (4,3)    (4,4)    (5,4)
                          (4,1)  (4,2)    (5,2)    (5,3)    (6,3)
                                 (5,1)    (6,1)    (6,2)    (7,2)
                                 (3,2,1)  (4,2,1)  (7,1)    (8,1)
                                                   (4,3,1)  (4,3,2)
                                                   (5,2,1)  (5,3,1)
                                                            (6,2,1)

These partitions have Heinz numbers A382913.
Without ones we have A383533, complement A383711.
The number of such families for each Heinz number is A383706.
The complement is counted by A383710, ranks A382912.
A048767 is the Look-and-Say transform, fixed points A048768 (counted by A217605).
A098859 counts partitions with distinct multiplicities, compositions A242882.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say or non-section-sum partitions, ranks A351295 or A381433.
Cf. A044813, A047966, A089259, A116540, A091602, A130091, A317141, A351013, A381441, A382771, A383013.

pof[y_]:=Select[Join@@@Tuples[IntegerPartitions/@y], UnsameQ@@#&];
Table[Length[Select[IntegerPartitions[n], pof[#]!={}&]],{n,15}]

A179009 Number of maximally refined partitions of n into distinct parts.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 2, 3, 1, 2, 2, 3, 5, 1, 3, 2, 3, 5, 7, 2, 5, 3, 4, 6, 7, 11, 3, 8, 5, 6, 6, 8, 11, 15, 7, 13, 9, 9, 9, 10, 12, 16, 22, 11, 20, 15, 17, 14, 15, 16, 18, 24, 30, 18, 30, 26, 28, 22, 27, 21, 25, 27, 33, 42, 36, 45, 43, 46, 38, 44, 33, 43, 36, 44, 47, 60, 46, 66, 64, 70, 63, 72, 61, 69, 60, 63, 58, 69, 80

Offset: 0

David S. Newman, Jan 03 2011

nonn

Let a_1,a_2,...,a_k be a partition of n into distinct parts. We say that this partition can be refined if one of the summands, say a_i can be replaced with two numbers whose sum is a_i  and the resulting partition is a partition into distinct parts.  For example, the partition 5+2 can be refined because 5 can be replaced by 4+1 to give 4+2+1.  If a partition into distinct parts cannot be refined we say that it is maximally refined.
The value of a(0) is taken to be 1 as is often done when considering partitions (also, the empty partition cannot be refined).
This sequence was suggested by Moshe Shmuel Newman.
From Gus Wiseman, Jun 07 2025: (Start)
Given any strict partition, the following are equivalent:
1) The parts are maximally refined.
2) Every strict partition of a part contains a part. In other words, if y is the set of parts and z is any strict partition of any element of y, then z must contain at least one element from y.
3) No part is a sum of distinct non-parts.
(End)

			a(11)=2 because there are two partitions of 11 which are maximally refined, namely 6+4+1 and 5+3+2+1.
From _Joerg Arndt_, Apr 23 2023: (Start)
The 15 maximally refined partitions of 35 are:
   1:    [ 1 2 3 4 5 6 14 ]
   2:    [ 1 2 3 4 5 7 13 ]
   3:    [ 1 2 3 4 5 8 12 ]
   4:    [ 1 2 3 4 5 9 11 ]
   5:    [ 1 2 3 4 6 7 12 ]
   6:    [ 1 2 3 4 6 8 11 ]
   7:    [ 1 2 3 4 6 9 10 ]
   8:    [ 1 2 3 4 7 8 10 ]
   9:    [ 1 2 3 5 6 7 11 ]
  10:    [ 1 2 3 5 6 8 10 ]
  11:    [ 1 2 3 5 7 8 9 ]
  12:    [ 1 2 4 5 6 7 10 ]
  13:    [ 1 2 4 5 6 8 9 ]
  14:    [ 1 3 4 5 6 7 9 ]
  15:    [ 2 3 4 5 6 7 8 ]
(End)

Massimo Lauria, Table of n, a(n) for n = 0..1500 (first 1000 terms by Fausto A. C. Cariboni)
Riccardo Aragona, Lorenzo Campioni, Roberto Civino, and Massimo Lauria, On the maximal part in unrefinable partitions of triangular numbers, arXiv:2111.11084 [math.CO], 2021.
Riccardo Aragona, Roberto Civino, and Norberto Gavioli, A modular idealizer chain and unrefinability of partitions with repeated parts, arXiv:2301.06347 [math.RA], 2023.
Riccardo Aragona, Roberto Civino, Norberto Gavioli and Carlo Maria Scoppola, Unrefinable partitions into distinct parts in a normalizer chain, arXiv:2107.04666 [math.CO], 2021.
Riccardo Aragona, Lorenzo Campioni, Roberto Civino and Massimo Lauria, Verification and generation of unrefinable partitions, arXiv:2112.15096 [math.CO], 2021.
Joerg Arndt, C++ program to compute such partitions.

For subsets instead of partitions we have A326080, complement A384350.
These partitions are ranked by A383707, apparently positions of 1 in A383706.
The strict complement is A384318 (strict partitions that can be refined).
This is the strict version of A384392, ranks A384320, complement apparently A384321.
Cf. A048767, A098859, A179822, A239455, A317142, A326083, A351293, A357982, A381454, A382525, A383708, A383710, A384317.

nonsets[y_]:=If[Length[y]==0,{},Rest[Subsets[Complement[Range[Max@@y],y]]]];
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Intersection[#,Total/@nonsets[#]]=={}&]],{n,0,15}] (* Gus Wiseman, Jun 09 2025 *)

More terms from Joerg Arndt, Jan 04 2011

A353839 Numbers whose prime indices do not have all distinct run-sums.

Original entry on oeis.org

12, 40, 60, 63, 84, 112, 120, 126, 132, 144, 156, 204, 228, 252, 276, 280, 300, 315, 325, 336, 348, 351, 352, 360, 372, 420, 440, 444, 492, 504, 516, 520, 560, 564, 588, 630, 636, 650, 660, 675, 680, 693, 702, 708, 720, 732, 760, 780, 804, 819, 832, 840, 852

Offset: 1

Gus Wiseman, Jun 04 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.

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4).

			The terms together with their prime indices begin:
   12: {1,1,2}
   40: {1,1,1,3}
   60: {1,1,2,3}
   63: {2,2,4}
   84: {1,1,2,4}
  112: {1,1,1,1,4}
  120: {1,1,1,2,3}
  126: {1,2,2,4}
  132: {1,1,2,5}
  144: {1,1,1,1,2,2}
  156: {1,1,2,6}
  204: {1,1,2,7}
  228: {1,1,2,8}
  252: {1,1,2,2,4}
  276: {1,1,2,9}
  280: {1,1,1,3,4}
  300: {1,1,2,3,3}
  315: {2,2,3,4}

For equal run-sums we have A353833, counted by A304442, nonprime A353834.
The complement is A353838, counted by A353837.
A001222 counts prime factors, distinct A001221.
A056239 adds up prime indices, row sums of A112798 and A296150.
A098859 counts partitions with distinct multiplicities, ranked by A130091.
A165413 counts distinct run-sums in binary expansion.
A300273 ranks collapsible partitions, counted by A275870.
A351014 counts distinct runs in standard compositions.
A353832 represents taking run-sums of a partition, compositions A353847.
A353840-A353846 pertain to partition run-sum trajectory.
A353852 ranks compositions with all distinct run-sums, counted by A353850.
A353862 gives the greatest run-sum of prime indices, least A353931.
A353866 ranks rucksack partitions, counted by A353864.
Cf. A002110, A071625, A073093, A116608, A118914, A124010, A353861, A353867.

Select[Range[100],!UnsameQ@@Cases[FactorInteger[#],{p_,k_}:>k*PrimePi[p]]&]

A383710 Number of integer partitions of n such that it is not possible to choose a family of pairwise disjoint strict integer partitions, one of each part.

Original entry on oeis.org

0, 0, 1, 1, 3, 4, 6, 10, 15, 22, 29, 42, 59, 79, 108, 140, 190, 247, 324, 417, 541

Offset: 0

Gus Wiseman, May 07 2025

Also the number of integer partitions of n whose normal multiset (in which i appears y_i times) is not a Look-and-Say partition.

			For y = (3,3) we can choose disjoint strict partitions ((2,1),(3)), so (3,3) is not counted under a(6).
The a(2) = 1 through a(8) = 15 partitions:
  (11)  (111)  (22)    (221)    (222)     (322)      (332)
               (211)   (311)    (411)     (331)      (422)
               (1111)  (2111)   (2211)    (511)      (611)
                       (11111)  (3111)    (2221)     (2222)
                                (21111)   (3211)     (3221)
                                (111111)  (4111)     (3311)
                                          (22111)    (4211)
                                          (31111)    (5111)
                                          (211111)   (22211)
                                          (1111111)  (32111)
                                                     (41111)
                                                     (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)

These partitions have Heinz numbers A382912.
The number of such families for each Heinz number is A383706.
The complement is counted by A383708, ranks A382913.
Without ones we have A383711, complement A383533.
A048767 is the Look-and-Say transform, fixed points A048768 (counted by A217605).
A098859 counts partitions with distinct multiplicities, compositions A242882.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A351293 counts non-Look-and-Say or non-section-sum partitions, ranks A351295 or A381433.
Cf. A044813, A047966, A089259, A116540, A130091, A317141, A318361, A381454, A383013.

pof[y_]:=Select[Join@@@Tuples[IntegerPartitions/@y], UnsameQ@@#&];
Table[Length[Select[IntegerPartitions[n], pof[#]=={}&]], {n,0,15}]

A351016 Number of binary words of length n with all distinct runs.

Original entry on oeis.org

1, 2, 4, 6, 12, 18, 36, 54, 92, 154, 244, 382, 652, 994, 1572, 2414, 3884, 5810, 8996, 13406, 21148, 31194, 47508, 70086, 104844, 156738, 231044, 338998, 496300, 721042, 1064932, 1536550, 2232252, 3213338, 4628852, 6603758, 9554156, 13545314, 19354276

Offset: 0

Gus Wiseman, Feb 07 2022

nonn

These are binary words where the runs of zeros have all distinct lengths and the runs of ones also have all distinct lengths. For n > 0 this is twice the number of terms of A175413 that have n digits in binary.

			The a(0) = 1 through a(4) = 12 binary words:
  ()   0    00    000    0000
       1    01    001    0001
            10    011    0010
            11    100    0011
                  110    0100
                  111    0111
                         1000
                         1011
                         1100
                         1101
                         1110
                         1111
For example, the word (1,1,0,1) has three runs (1,1), (0), (1), which are all distinct, so is counted under a(4).

Mathematics Stack Exchange, What is a sequence run? (answered 2011-12-01)

The version for compositions is A351013, lengths A329739, ranked by A351290.
The version for [run-]lengths is A351017.
The version for expansions is A351018, lengths A032020, ranked by A175413.
The version for patterns is A351200, lengths A351292.
The version for permutations of prime factors is A351202.
A000120 counts binary weight.
A001037 counts binary Lyndon words, necklaces A000031, aperiodic A027375.
A005811 counts runs in binary expansion.
A011782 counts integer compositions.
A242882 counts compositions with distinct multiplicities.
A297770 counts distinct runs in binary expansion.
A325545 counts compositions with distinct differences.
A329767 counts binary words by runs-resistance.
A351014 counts distinct runs in standard compositions.
A351204 counts partitions whose permutations all have all distinct runs.
Cf. A003242, A098859, A106356, A116608, A238130 or A238279, A328592, A329738, A329745, A334028, A351201.

Table[Length[Select[Tuples[{0,1},n],UnsameQ@@Split[#]&]],{n,0,10}]

from itertools import groupby, product
def adr(s):
    runs = [(k, len(list(g))) for k, g in groupby(s)]
    return len(runs) == len(set(runs))
def a(n):
    if n == 0: return 1
    return 2*sum(adr("1"+"".join(w)) for w in product("01", repeat=n-1))
print([a(n) for n in range(20)]) # Michael S. Branicky, Feb 08 2022

a(n>0) = 2 * A351018(n).

a(25)-a(32) from Michael S. Branicky, Feb 08 2022

a(33)-a(38) from David A. Corneth, Feb 08 2022

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

Original entry on oeis.org

1, 2, 3, 5, 10, 19, 35, 62, 109, 197, 364, 677, 1251, 2288, 4143, 7443, 13318, 23837, 42809, 77216, 139751, 253293, 458800, 829237, 1494169, 2683316, 4804083, 8580293, 15301324, 27270061, 48607667, 86696300, 154758265, 276453311, 494050894, 882923051

Offset: 0

Gus Wiseman, Jun 16 2025

nonn

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

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

For runs instead of anti-runs we have A384175, complement A384176.
These subsets are ranked by A384879.
For strict partitions instead of subsets we have A384880, see A384178, A384884, A384886.
For equal instead of distinct lengths we have A384889, for runs A243815.
A034839 counts subsets by number of maximal runs, for strict partitions A116674.
A098859 counts Wilf partitions (distinct multiplicities), complement A336866.
A384893 counts subsets by number of maximal anti-runs, for partitions A268193, A384905.
Cf. A000009, A010027, A044813, A047993, A106529, A123513, A242882, A325325, A328592, A329739, A351202, A384890.

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

lista(n)={my(o=(1-x^(n+1))/(1-x)*O(y*y^n),p=prod(i=1,(n+1)\2,1+o+x*y^(2*i-1)/(1-y)^(i-1)));p=subst(serlaplace(p),x,1);Vec((p-y)/(1-y)^2)} \\ Christian Sievers, Jun 18 2025

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

A100471 Number of integer partitions of n whose sequence of frequencies is strictly increasing.

Original entry on oeis.org

1, 1, 2, 2, 4, 4, 7, 8, 11, 13, 18, 20, 27, 32, 40, 44, 60, 67, 82, 93, 114, 129, 161, 175, 209, 239, 285, 315, 372, 416, 484, 545, 631, 698, 811, 890, 1027, 1146, 1304, 1437, 1631, 1805, 2042, 2252, 2539, 2785, 3143, 3439, 3846, 4226, 4722, 5159

Offset: 0

David S. Newman, Nov 21 2004

nonn

			a(4) = 4 because of the 5 unrestricted partitions of 4, only one, 3+1 uses each of its summands just once and 1,1 is not an increasing sequence.
From _Gus Wiseman_, Jan 23 2019: (Start)
The a(1) = 1 through a(8) = 11 integer partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (311)    (33)      (322)      (44)
                    (211)   (2111)   (222)     (511)      (422)
                    (1111)  (11111)  (411)     (4111)     (611)
                                     (3111)    (22111)    (2222)
                                     (21111)   (31111)    (5111)
                                     (111111)  (211111)   (41111)
                                               (1111111)  (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)
(End)

Vaclav Kotesovec, Table of n, a(n) for n = 0..8000 (terms 0..1000 from Alois P. Heinz)

Cf. A000219, A000837 (frequencies are relatively prime), A047966 (frequencies are equal), A098859 (frequencies are distinct), A100881, A100882, A100883, A304686 (Heinz numbers of these partitions).

a100471 n = p 0 (n + 1) 1 n where
   p m m' k x | x == 0    = if m < m' || m == 0 then 1 else 0
              | x < k     = 0
              | m == 0    = p 1 m' k (x - k) + p 0 m' (k + 1) x
              | otherwise = p (m + 1) m' k (x - k) +
                            if m < m' then p 0 m (k + 1) x else 0
-- Reinhard Zumkeller, Dec 27 2012

b:= proc(n,i,t) option remember;
      if n<0 then 0
    elif n=0 then 1
    elif i=1 then `if`(n>t, 1, 0)
    elif i=0 then 0
    else      b(n, i-1, t)
         +add(b(n-i*j, i-1, j), j=t+1..floor(n/i))
      fi
    end:
a:= n-> b(n, n, 0):
seq(a(n), n=0..60);  # Alois P. Heinz, Feb 21 2011

b[n_, i_, t_] := b[n, i, t] = Which[n<0, 0, n==0, 1, i==1, If[n>t, 1, 0], i == 0, 0 , True, b[n, i-1, t] + Sum[b[n-i*j, i-1, j], {j, t+1, Floor[n/i]}]]; a[n_] := b[n, n, 0]; Table[a[n], {n, 0, 60}] (* Jean-François Alcover, Mar 16 2015, after Alois P. Heinz *)
Table[Length[Select[IntegerPartitions[n],OrderedQ@*Split]],{n,20}] (* Gus Wiseman, Jan 23 2019 *)

Corrected and extended by Vladeta Jovovic, Nov 24 2004

Name edited by Gus Wiseman, Jan 23 2019

A351596 Numbers k such that the k-th composition in standard order has all distinct run-lengths.

Original entry on oeis.org

0, 1, 2, 3, 4, 7, 8, 10, 11, 14, 15, 16, 19, 21, 23, 26, 28, 30, 31, 32, 35, 36, 39, 42, 47, 56, 60, 62, 63, 64, 67, 71, 73, 74, 79, 84, 85, 87, 95, 100, 106, 112, 119, 120, 122, 123, 124, 126, 127, 128, 131, 135, 136, 138, 143, 146, 159, 164, 168, 170, 171

Offset: 1

Gus Wiseman, Feb 24 2022

nonn

The n-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 n, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The terms together with their binary expansions and corresponding compositions begin:
   0:      0  ()
   1:      1  (1)
   2:     10  (2)
   3:     11  (1,1)
   4:    100  (3)
   7:    111  (1,1,1)
   8:   1000  (4)
  10:   1010  (2,2)
  11:   1011  (2,1,1)
  14:   1110  (1,1,2)
  15:   1111  (1,1,1,1)
  16:  10000  (5)
  19:  10011  (3,1,1)
  21:  10101  (2,2,1)
  23:  10111  (2,1,1,1)

The version using binary expansions is A044813.
The version for Heinz numbers and prime multiplicities is A130091.
These compositions are counted by A329739, normal A329740.
The version for runs instead of run-lengths is A351290, counted by A351013.
A005811 counts runs in binary expansion, distinct A297770.
A011782 counts integer compositions.
A085207 represents concatenation of standard compositions, reverse A085208.
A333489 ranks anti-runs, complement A348612.
A345167 ranks alternating compositions, counted by A025047.
A351204 counts partitions where every permutation has all distinct runs.
Counting words with all distinct run-lengths:
- A032020 = binary expansions, for runs A351018.
- A351017 = binary words, for runs A351016.
- A351292 = patterns, for runs A351200.
Selected statistics of standard compositions (A066099, A228351):
- Length is A000120.
- Sum is A070939.
- Runs are counted by A124767, distinct A351014.
- Heinz number is A333219.
- Number of distinct parts is A334028.
Cf. A098859, A106356, A175413, A238279, A242882, A328592, A329745, A333628, A350952, A351015, A351202.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],UnsameQ@@Length/@Split[stc[#]]&]

A325349 Number of integer partitions of n whose augmented differences are distinct.

Original entry on oeis.org

1, 1, 1, 2, 3, 2, 4, 5, 7, 7, 12, 10, 13, 15, 21, 21, 31, 34, 38, 45, 55, 60, 71, 80, 84, 103, 119, 134, 152, 186, 192, 228, 263, 292, 321, 377, 399, 454, 514, 565, 618, 709, 752, 840, 958, 1050, 1140, 1297, 1402, 1568, 1755, 1901, 2080, 2343, 2524, 2758, 3074

Offset: 0

Gus Wiseman, Apr 23 2019

nonn

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).

The Heinz numbers of these partitions are given by A325366.

			The a(1) = 1 through a(11) = 10 partitions (A = 10, B = 11):
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (A)    (B)
            (21)  (22)  (41)  (33)  (43)   (44)   (54)   (55)   (65)
                  (31)        (42)  (52)   (62)   (63)   (64)   (83)
                              (51)  (61)   (71)   (72)   (73)   (92)
                                    (421)  (422)  (81)   (82)   (A1)
                                           (431)  (522)  (91)   (443)
                                           (521)  (621)  (433)  (641)
                                                         (442)  (722)
                                                         (541)  (731)
                                                         (622)  (821)
                                                         (631)
                                                         (721)
For example, (4,4,3) has augmented differences (1,2,3), which are distinct, so (4,4,3) is counted under a(11).

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..440

Cf. A000837, A049988, A098859, A325324, A325325, A325328, A325351, A325366, A325404.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@Differences[Append[#,1]]&]],{n,0,30}]

cp's OEIS Frontend

A351017 Number of binary words of length n with all distinct run-lengths.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

A383708 Number of integer partitions of n such that it is possible to choose a family of pairwise disjoint strict integer partitions, one of each part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A179009 Number of maximally refined partitions of n into distinct parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A353839 Numbers whose prime indices do not have all distinct run-sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A383710 Number of integer partitions of n such that it is not possible to choose a family of pairwise disjoint strict integer partitions, one of each part.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A351016 Number of binary words of length n with all distinct runs.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

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

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A100471 Number of integer partitions of n whose sequence of frequencies is strictly increasing.

Views

Author

Keywords

Examples

Links