cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 42 results. Next

A384884 Number of integer partitions of n with all distinct lengths of maximal gapless runs (decreasing by 0 or 1).

Original entry on oeis.org

1, 1, 2, 3, 4, 6, 9, 13, 18, 25, 35, 46, 60, 79, 104, 131, 170, 215, 271, 342, 431, 535, 670, 830, 1019, 1258, 1547, 1881, 2298, 2787, 3359, 4061, 4890, 5849, 7010, 8361, 9942, 11825, 14021, 16558, 19561, 23057, 27084, 31821, 37312, 43627, 50999, 59500, 69267
Offset: 0

Views

Author

Gus Wiseman, Jun 13 2025

Keywords

Examples

			The partition y = (6,6,4,3,3,2) has maximal gapless runs ((6,6),(4,3,3,2)), with lengths (2,4), so y is counted under a(24).
The a(1) = 1 through a(8) = 18 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (211)   (221)    (222)     (322)      (332)
                    (1111)  (311)    (321)     (331)      (422)
                            (2111)   (411)     (421)      (431)
                            (11111)  (2211)    (511)      (521)
                                     (3111)    (2221)     (611)
                                     (21111)   (3211)     (2222)
                                     (111111)  (4111)     (3221)
                                               (22111)    (4211)
                                               (31111)    (5111)
                                               (211111)   (22211)
                                               (1111111)  (32111)
                                                          (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)
		

Crossrefs

For subsets instead of strict partitions we have A384175.
The strict case is A384178, for anti-runs A384880.
For anti-runs we have A384885.
For equal instead of distinct lengths we have A384887.
A000041 counts integer partitions, strict A000009.
A007690 counts partitions with no singletons, complement A183558.
A034296 counts flat or gapless partitions, ranks A066311 or A073491.
A098859 counts Wilf partitions (distinct multiplicities), complement A336866.
A239455 counts Look-and-Say or section-sum partitions, ranks A351294 or A381432.
A355394 counts partitions without a neighborless part, singleton case A355393.
A356236 counts partitions with a neighborless part, singleton case A356235.
A356606 counts strict partitions without a neighborless part, complement A356607.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@Length/@Split[#,#2>=#1-1&]&]],{n,0,15}]

A325388 Heinz numbers of strict integer partitions with distinct differences (with the last part taken to be 0).

Original entry on oeis.org

1, 2, 3, 5, 7, 10, 11, 13, 14, 15, 17, 19, 22, 23, 26, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 67, 69, 71, 73, 74, 77, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 103, 106, 107, 109, 111, 113, 115, 118, 119, 122
Offset: 1

Views

Author

Gus Wiseman, May 02 2019

Keywords

Comments

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) (with the last part taken to be 0) are (-3,-2,-1).
The enumeration of these partitions by sum is given by A320348.

Examples

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    3: {2}
    5: {3}
    7: {4}
   10: {1,3}
   11: {5}
   13: {6}
   14: {1,4}
   15: {2,3}
   17: {7}
   19: {8}
   22: {1,5}
   23: {9}
   26: {1,6}
   29: {10}
   31: {11}
   33: {2,5}
   34: {1,7}
   35: {3,4}
		

Crossrefs

Programs

  • Mathematica
    primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
    Select[Range[100],SquareFreeQ[#]&&UnsameQ@@Differences[Append[primeptn[#],0]]&]

A325390 Heinz number of the negated differences plus one of the integer partition with Heinz number n (with the last part taken to be 0).

Original entry on oeis.org

1, 3, 5, 6, 7, 9, 11, 12, 10, 15, 13, 18, 17, 21, 15, 24, 19, 18, 23, 30, 25, 33, 29, 36, 14, 39, 20, 42, 31, 27, 37, 48, 35, 51, 21, 36, 41, 57, 55, 60, 43, 45, 47, 66, 30, 69, 53, 72, 22, 30, 65, 78, 59, 36, 35, 84, 85, 87, 61, 54, 67, 93, 50, 96, 49, 63, 71
Offset: 1

Views

Author

Gus Wiseman, May 02 2019

Keywords

Comments

The Heinz number of a positive integer sequence (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) (with the last part taken to be 0) are (-3,-2,-1).

Examples

			The Heinz number of (6,3,1) is 130, and its negated differences plus one are (4,3,2), which has Heinz number 105, so a(130) = 105.
		

Crossrefs

Number of appearances of n is A325392(n).
Positions of squarefree numbers are A325367.

Programs

  • Mathematica
    primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
    Table[Times@@Prime/@(1-Differences[Append[primeptn[n],0]]),{n,100}]

A384880 Number of strict integer partitions of n with all distinct lengths of maximal anti-runs (decreasing by more than 1).

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 3, 4, 6, 6, 9, 10, 12, 15, 18, 21, 25, 30, 34, 41, 46, 55, 63, 75, 85, 99, 114, 133, 152, 178, 201, 236, 269, 308, 352, 404, 460, 525, 594, 674, 763, 865, 974, 1098, 1236, 1385, 1558, 1745, 1952, 2181, 2435, 2712, 3026, 3363, 3740, 4151, 4612
Offset: 0

Views

Author

Gus Wiseman, Jun 13 2025

Keywords

Examples

			The strict partition y = (10,7,6,4,2,1) has maximal anti-runs ((10,7),(6,4,2),(1)), with lengths (2,3,1), so y is counted under a(30).
The a(1) = 1 through a(14) = 18 partitions (A-E = 10-14):
  1  2  3  4   5   6   7    8    9    A    B    C    D     E
           31  41  42  52   53   63   64   74   75   85    86
                   51  61   62   72   73   83   84   94    95
                       421  71   81   82   92   93   A3    A4
                            431  531  91   A1   A2   B2    B3
                            521  621  532  542  B1   C1    C2
                                      541  632  642  643   D1
                                      631  641  651  652   653
                                      721  731  732  742   743
                                           821  741  751   752
                                                831  832   761
                                                921  841   842
                                                     931   851
                                                     A21   932
                                                     6421  941
                                                           A31
                                                           B21
                                                           7421
		

Crossrefs

For subsets instead of strict partitions we have A384177.
For runs instead of anti-runs we have A384178.
This is the strict case of A384885.
A000041 counts integer partitions, strict A000009.
A047993 counts partitions with max part = length.
A098859 counts Wilf partitions (complement A336866), 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.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&UnsameQ@@Length/@Split[#,#2<#1-1&]&]],{n,0,30}]

A384178 Number of strict integer partitions of n with all distinct lengths of maximal runs (decreasing by 1).

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 2, 3, 3, 4, 5, 6, 6, 8, 8, 10, 11, 13, 13, 16, 15, 19, 19, 23, 22, 26, 28, 31, 35, 39, 37, 47, 51, 52, 60, 65, 67, 78, 85, 86, 99, 108, 110, 127, 136, 138, 159, 170, 171, 196, 209, 213, 240, 257, 260, 292, 306, 313, 350, 371, 369, 417, 441
Offset: 0

Views

Author

Gus Wiseman, Jun 12 2025

Keywords

Examples

			The strict partition y = (9,7,6,5,2,1) has maximal runs ((9),(7,6,5),(2,1)), with lengths (1,3,2), so y is counted under a(30).
The a(1) = 1 through a(14) = 8 strict partitions (A-E = 10-14):
  1  2  3   4  5   6    7    8    9    A     B     C     D     E
        21     32  321  43   431  54   532   65    543   76    653
                        421  521  432  541   542   651   643   743
                                  621  721   632   732   652   761
                                       4321  821   921   832   932
                                             5321  6321  A21   B21
                                                         5431  5432
                                                         7321  8321
		

Crossrefs

For subsets instead of strict partitions we have A384175, complement A384176.
For anti-runs instead of runs we have A384880.
This is the strict version of A384884.
For equal instead of distinct lengths we have A384886.
A000041 counts integer partitions, strict A000009.
A047993 counts partitions with max part = length.
A098859 counts Wilf partitions (complement A336866), 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.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&UnsameQ@@Length/@Split[#,#1==#2+1&]&]],{n,0,30}]

A320509 Number of partitions of n such that the successive differences of consecutive parts are nonincreasing, and first difference <= first part.

Original entry on oeis.org

1, 1, 2, 3, 3, 4, 6, 4, 6, 8, 7, 8, 11, 7, 12, 14, 10, 13, 19, 12, 18, 21, 16, 19, 27, 19, 25, 30, 25, 30, 37, 25, 35, 40, 35, 42, 49, 35, 49, 56, 46, 54, 66, 50, 65, 72, 60, 70, 83, 68, 84, 90, 80, 94, 110, 86, 107, 116, 98, 119, 137, 111, 134, 146, 130, 148, 165, 141, 169
Offset: 0

Views

Author

Seiichi Manyama, Oct 14 2018

Keywords

Comments

Partitions are usually written with parts in descending order, but the conditions are easier to check visually if written in ascending order.
The differences of a sequence are defined as if the sequence were increasing, so for example the differences (with the first part taken to be 0) of (6,3,1) are (-3,-2,-1). Then a(n) is the number of integer partitions of n whose differences (with the last part taken to be 0) are weakly decreasing. The Heinz numbers of these partitions are given by A325364. Of course, the number of such integer partitions of n is also the number of reversed integer partitions of n whose differences (with the first part taken to be 0) are weakly decreasing, which is the author's interpretation. - Gus Wiseman, May 03 2019

Examples

			There are a(11) = 8 such partitions of 11:
01: [11]
02: [4, 7]
03: [5, 6]
04: [2, 4, 5]
05: [3, 4, 4]
06: [2, 3, 3, 3]
07: [1, 2, 2, 2, 2, 2]
08: [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]
There are a(12) = 11 such partitions of 12:
01: [12]
02: [4, 8]
03: [5, 7]
04: [6, 6]
05: [2, 4, 6]
06: [3, 4, 5]
07: [4, 4, 4]
08: [3, 3, 3, 3]
09: [1, 2, 3, 3, 3]
10: [2, 2, 2, 2, 2, 2]
11: [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]
		

Crossrefs

Cf. A320387 (distinct parts, nonincreasing, and first difference <= first part).

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],GreaterEqual@@Differences[Append[#,0]]&]],{n,0,30}] (* Gus Wiseman, May 03 2019 *)
  • Ruby
    def partition(n, min, max)
      return [[]] if n == 0
      [max, n].min.downto(min).flat_map{|i| partition(n - i, min, i).map{|rest| [i, *rest]}}
    end
    def f(n)
      return 1 if n == 0
      cnt = 0
      partition(n, 1, n).each{|ary|
        ary << 0
        ary0 = (1..ary.size - 1).map{|i| ary[i - 1] - ary[i]}
        cnt += 1 if ary0.sort == ary0
      }
      cnt
    end
    def A320509(n)
      (0..n).map{|i| f(i)}
    end
    p A320509(50)

A325468 Number of integer partitions y of n such that the k-th differences of y are distinct (independently) for all k >= 0.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 3, 5, 6, 6, 9, 11, 10, 15, 17, 19, 24, 31, 26, 40, 43, 51, 52, 72, 66, 89, 88, 111, 119, 150, 130, 183, 193, 229, 231, 279, 287, 358, 365, 430, 426, 538, 535, 649, 680, 742, 803, 943, 982, 1136, 1115
Offset: 0

Views

Author

Gus Wiseman, May 03 2019

Keywords

Comments

The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) are (-3,-2).
The zeroth differences of a sequence are the sequence itself, while the k-th differences for k > 0 are the differences of the (k-1)-th differences.
The Heinz numbers of these partitions are given by A325467.

Examples

			The a(1) = 1 through a(9) = 6 partitions:
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)
            (21)  (31)  (32)  (42)  (43)   (53)   (54)
                        (41)  (51)  (52)   (62)   (63)
                                    (61)   (71)   (72)
                                    (421)  (431)  (81)
                                           (521)  (621)
		

Crossrefs

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],And@@Table[UnsameQ@@Differences[#,k],{k,0,Length[#]}]&]],{n,0,30}]

A179269 Number of partitions of n into distinct parts such that the successive differences of consecutive parts are increasing, and first difference > first part.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 5, 5, 5, 7, 7, 7, 10, 10, 10, 13, 14, 14, 18, 19, 19, 23, 25, 25, 30, 32, 33, 38, 41, 42, 48, 52, 54, 60, 65, 67, 75, 81, 84, 92, 99, 103, 113, 121, 126, 136, 147, 153, 165, 177, 184, 197, 213, 221, 236, 253, 264, 280, 301, 313, 331, 355, 371, 390, 418, 435, 458
Offset: 0

Views

Author

Joerg Arndt, Jan 05 2011

Keywords

Comments

Conditions as in A179254; additionally, if more than 1 part, first difference > first part.
Equivalently, number of partitions for which the sequence of part counts by decreasing part size is 1, 2, 3, ... - Olivier Gérard, Jul 28 2017

Examples

			a(10) = 5 as there are 5 such partitions of 10: 1 + 3 + 6 = 1 + 9 = 2 + 8 = 3 + 7 = 10.
a(10) = 5 as there are 5 such partitions of 10: 10, 8 + 1 + 1, 6 + 2 + 2, 4 + 3 + 3, 3 + 2 + 2 + 1 + 1 + 1 (second definition).
From _Gus Wiseman_, May 04 2019: (Start)
The a(3) = 1 through a(13) = 7 partitions whose differences are strictly increasing (with the last part taken to be 0) are the following (A = 10, B = 11, C = 12, D = 13). The Heinz numbers of these partitions are given by A325460.
  (3)  (4)   (5)   (6)   (7)   (8)   (9)   (A)    (B)    (C)    (D)
       (31)  (41)  (51)  (52)  (62)  (72)  (73)   (83)   (93)   (94)
                         (61)  (71)  (81)  (82)   (92)   (A2)   (A3)
                                           (91)   (A1)   (B1)   (B2)
                                           (631)  (731)  (831)  (C1)
                                                                (841)
                                                                (931)
The a(3) = 1 through a(11) = 5 partitions whose multiplicities form an initial interval of positive integers are the following (A = 10, B = 11). The Heinz numbers of these partitions are given by A307895.
  (3)  (4)    (5)    (6)    (7)    (8)    (9)    (A)       (B)
       (211)  (311)  (411)  (322)  (422)  (522)  (433)     (533)
                            (511)  (611)  (711)  (622)     (722)
                                                 (811)     (911)
                                                 (322111)  (422111)
(End)
		

Crossrefs

Cf. A179254 (condition only on differences), A007294 (nondecreasing instead of strictly increasing), A179255, A320382, A320385, A320387, A320388.

Programs

  • Mathematica
    Table[Length@
      Select[IntegerPartitions[n],
       And @@ Equal[Range[Length[Split[#]]], Length /@ Split[#]] &], {n,
    0, 40}]   (* Olivier Gérard, Jul 28 2017 *)
    Table[Length[Select[IntegerPartitions[n],Less@@Differences[Append[#,0]]&]],{n,0,30}] (* Gus Wiseman, May 04 2019 *)
  • PARI
    R(n)={my(L=List(), v=vectorv(n, i, 1), w=1, t=1); while(v, listput(L,v); w++; t+=w; v=vectorv(n, i, sum(k=1, (i-1)\t, L[w-1][i-k*t]))); Mat(L)}
    seq(n)={my(M=R(n)); concat([1], vector(n, i, vecsum(M[i,])))} \\ Andrew Howroyd, Aug 27 2019
  • Ruby
    def partition(n, min, max)
      return [[]] if n == 0
      [max, n].min.downto(min).flat_map{|i| partition(n - i, min, i - 1).map{|rest| [i, *rest]}}
    end
    def f(n)
      return 1 if n == 0
      cnt = 0
      partition(n, 1, n).each{|ary|
        ary << 0
        ary0 = (1..ary.size - 1).map{|i| ary[i - 1] - ary[i]}
        cnt += 1 if ary0.sort == ary0.reverse && ary0.uniq == ary0
      }
      cnt
    end
    def A179269(n)
      (0..n).map{|i| f(i)}
    end
    p A179269(50) # Seiichi Manyama, Oct 12 2018
    
  • Sage
    def A179269(n):
        has_increasing_diffs = lambda x: min(differences(x,2)) >= 1
        special = lambda x: (x[1]-x[0]) > x[0]
        allowed = lambda x: (len(x) < 2 or special(x)) and (len(x) < 3 or has_increasing_diffs(x))
        return len([x for x in Partitions(n,max_slope=-1) if allowed(x[::-1])])
    # D. S. McNeil, Jan 06 2011
    

Formula

G.f.: Sum_{k>=0} x^(k*(k+1)*(k+2)/6) / Product_{j=1..k} (1 - x^(j*(j+1)/2)) (conjecture). - Ilya Gutkovskiy, Apr 25 2019

A383506 Number of non Wilf section-sum partitions of n.

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 1, 3, 4, 4, 7, 9, 12, 18, 25, 32, 42, 55, 64, 87, 101, 128, 147, 192, 218, 273, 314, 394, 450, 552, 631, 772, 886, 1066, 1221, 1458, 1677, 1980, 2269, 2672, 3029
Offset: 0

Views

Author

Gus Wiseman, May 18 2025

Keywords

Comments

An integer partition is Wilf iff its multiplicities are all different, ranked by A130091.
An integer partition is section-sum iff it is possible to choose a disjoint family of strict partitions, one of each of its positive 0-appended differences. These are ranked by A381432.

Examples

			The a(4) = 1 through a(12) = 12 partitions (A=10, B=11):
  (31)  (32)  (51)  (43)  (53)    (54)  (64)    (65)    (75)
        (41)        (52)  (62)    (63)  (73)    (74)    (84)
                    (61)  (71)    (72)  (82)    (83)    (93)
                          (3311)  (81)  (91)    (92)    (A2)
                                        (631)   (A1)    (B1)
                                        (3322)  (632)   (732)
                                        (4411)  (641)   (831)
                                                (731)   (5511)
                                                (6311)  (6411)
                                                        (7311)
                                                        (63111)
                                                        (333111)
		

Crossrefs

Ranking sequences are shown in parentheses below.
For Look-and-Say instead of section-sum we have A351592 (A384006).
The Look-and-Say case is A383511 (A383518).
These partitions are ranked by (A383514).
For Wilf instead of non Wilf we have A383519 (A383520).
A000041 counts integer partitions, strict A000009.
A098859 counts Wilf partitions (A130091), conjugate (A383512).
A239455 counts Look-and-Say partitions (A351294), complement A351293 (A351295).
A239455 counts section-sum partitions (A381432), complement A351293 (A381433).
A336866 counts non Wilf partitions (A130092), conjugate (A383513).
A383508 counts partitions that are both Look-and-Say and section-sum (A383515).
A383509 counts partitions that are Look-and-Say but not section-sum (A383516).
A383509 counts partitions that are not Look-and-Say but are section-sum (A384007).
A383510 counts partitions that are neither Look-and-Say nor section-sum (A383517).

Programs

  • Mathematica
    disjointDiffs[y_]:=Select[Tuples[IntegerPartitions /@ Differences[Prepend[Sort[y],0]]], UnsameQ@@Join@@#&];
    Table[Length[Select[IntegerPartitions[n], disjointDiffs[#]!={} && !UnsameQ@@Length/@Split[#]&]],{n,0,15}]

A383709 Number of integer partitions of n with distinct multiplicities (Wilf) and distinct 0-appended differences.

Original entry on oeis.org

1, 1, 2, 1, 2, 2, 3, 4, 4, 4, 5, 6, 5, 7, 8, 6, 8, 9, 9, 10, 9, 10, 12, 12, 11, 12, 14, 13, 14, 15, 14, 16, 16, 16, 18, 17, 17, 19, 20, 19, 19, 21, 21, 22, 22, 21, 24, 24, 23, 25, 25, 25, 26, 27, 27, 27, 28, 28, 30, 30, 28, 31, 32, 31, 32, 32, 33, 34, 34, 34
Offset: 0

Views

Author

Gus Wiseman, May 15 2025

Keywords

Comments

Integer partitions with distinct multiplicities are called Wilf partitions.

Examples

			The a(1) = 1 through a(8) = 4 partitions:
  (1)  (2)    (3)  (4)    (5)      (6)      (7)      (8)
       (1,1)       (2,2)  (3,1,1)  (3,3)    (3,2,2)  (4,4)
                                   (4,1,1)  (3,3,1)  (3,3,2)
                                            (5,1,1)  (6,1,1)
		

Crossrefs

For just distinct multiplicities we have A098859, ranks A130091, conjugate A383512.
For just distinct 0-appended differences we have A325324, ranks A325367.
For positive differences we have A383507, ranks A383532.
These partitions are ranked by A383712.
A048767 is the Look-and-Say transform, union A351294, complement A351295.
A239455 counts Look-and-Say partitions, complement A351293.
A336866 counts non Wilf partitions, ranks A130092, conjugate A383513.
A383530 counts partitions that are not Wilf or conjugate-Wilf, ranks A383531.
A383534 gives 0-prepended differences by rank, see A325351.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@Length/@Split[#]&&UnsameQ@@Differences[Append[#,0]]&]],{n,0,30}]

Formula

Ranked by A130091 /\ A325367
Previous Showing 11-20 of 42 results. Next