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 21-30 of 39 results. Next

A325250 Number of integer partitions of n whose omega-sequence is strict (no repeated parts).

Original entry on oeis.org

1, 1, 2, 2, 3, 2, 5, 2, 5, 4, 6, 2, 11, 3, 10, 12, 17, 12, 31, 22, 42, 47, 57, 60, 98, 94, 119, 143, 174, 182, 256, 253, 321, 365, 425, 480, 615, 645, 803, 946, 1180, 1341, 1766, 2021, 2607, 3145, 3951, 4727, 6123, 7236, 9136
Offset: 0

Views

Author

Gus Wiseman, Apr 16 2019

Keywords

Comments

The omega-sequence of an integer partition is the sequence of lengths of the multisets obtained by repeatedly taking the multiset of multiplicities until a singleton is reached. For example, the partition (32211) has chain of multisets of multiplicities {1,1,2,2,3} -> {1,2,2} -> {1,2} -> {1,1} -> {2}, so its omega-sequence is (5,3,2,2,1).
The Heinz numbers of these partitions are given by A325247.

Examples

			The a(1) = 1 through a(10) = 6 partitions (A = 10):
  1  2   3    4     5      6       7        8         9          A
     11  111  22    11111  33      1111111  44        333        55
              1111         222              2222      222111     3322
                           2211             3311      111111111  4411
                           111111           11111111             22222
                                                                 1111111111
		

Crossrefs

Omega-sequence statistics: A001222 (first omega), A001221 (second omega), A071625 (third omega), A323022 (fourth omega), A304465 (second-to-last omega), A182850 or A323014 (length/frequency depth), A325248 (Heinz number).
Integer partition triangles: A008284 (first omega), A116608 (second omega), A325242 (third omega), A325268 (second-to-last omega), A225485 or A325280 (length/frequency depth).

Programs

  • Mathematica
    omseq[ptn_List]:=If[ptn=={},{},Length/@NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]];
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@omseq[#]&]],{n,0,30}]

Formula

a(n) + A325262(n) = A000041(n).

A325259 Numbers with one fewer distinct prime exponents than distinct prime factors.

Original entry on oeis.org

6, 10, 14, 15, 21, 22, 26, 33, 34, 35, 36, 38, 39, 46, 51, 55, 57, 58, 60, 62, 65, 69, 74, 77, 82, 84, 85, 86, 87, 90, 91, 93, 94, 95, 100, 106, 111, 115, 118, 119, 120, 122, 123, 126, 129, 132, 133, 134, 140, 141, 142, 143, 145, 146, 150, 155, 156, 158, 159
Offset: 1

Views

Author

Gus Wiseman, Apr 18 2019

Keywords

Comments

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are Heinz numbers of integer partitions with one fewer distinct multiplicities than distinct parts. The enumeration of these partitions by sum is given by A325244.

Examples

			The sequence of terms together with their prime indices begins:
    6: {1,2}
   10: {1,3}
   14: {1,4}
   15: {2,3}
   21: {2,4}
   22: {1,5}
   26: {1,6}
   33: {2,5}
   34: {1,7}
   35: {3,4}
   36: {1,1,2,2}
   38: {1,8}
   39: {2,6}
   46: {1,9}
   51: {2,7}
   55: {3,5}
   57: {2,8}
   58: {1,10}
   60: {1,1,2,3}
   62: {1,11}
		

Crossrefs

Programs

  • Mathematica
    Select[Range[100],PrimeNu[#]==Length[Union[Last/@FactorInteger[#]]]+1&]

Formula

A001221(a(n)) = A071625(a(n)) + 1.

A325283 Heinz numbers of integer partitions with maximum adjusted frequency depth for partitions of that sum.

Original entry on oeis.org

2, 4, 6, 12, 18, 20, 24, 28, 40, 48, 60, 84, 90, 120, 126, 132, 140, 150, 156, 168, 180, 198, 204, 220, 228, 234, 240, 252, 260, 264, 270, 276, 280
Offset: 1

Views

Author

Gus Wiseman, Apr 17 2019

Keywords

Comments

The enumeration of these partitions by sum is given by A325254.
The adjusted frequency depth of an integer partition is 0 if the partition is empty, and otherwise it is 1 plus the number of times one must take the multiset of multiplicities to reach a singleton. For example, the partition (32211) has adjusted frequency depth 5 because we have: (32211) -> (221) -> (21) -> (11) -> (2).
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Examples

			The sequence of terms together with their prime indices and their omega-sequences (see A323023) begins:
  2:   {1}         (1)
  4:   {1,1}       (2,1)
  6:   {1,2}       (2,2,1)
  12:  {1,1,2}     (3,2,2,1)
  18:  {1,2,2}     (3,2,2,1)
  20:  {1,1,3}     (3,2,2,1)
  24:  {1,1,1,2}   (4,2,2,1)
  28:  {1,1,4}     (3,2,2,1)
  40:  {1,1,1,3}   (4,2,2,1)
  48:  {1,1,1,1,2} (5,2,2,1)
  60:  {1,1,2,3}   (4,3,2,2,1)
  84:  {1,1,2,4}   (4,3,2,2,1)
  90:  {1,2,2,3}   (4,3,2,2,1)
  120: {1,1,1,2,3} (5,3,2,2,1)
  126: {1,2,2,4}   (4,3,2,2,1)
  132: {1,1,2,5}   (4,3,2,2,1)
  140: {1,1,3,4}   (4,3,2,2,1)
  150: {1,2,3,3}   (4,3,2,2,1)
  156: {1,1,2,6}   (4,3,2,2,1)
  168: {1,1,1,2,4} (5,3,2,2,1)
  180: {1,1,2,2,3} (5,3,2,2,1)
		

Crossrefs

Integer partition triangles: A008284 (first omega), A116608 (second omega), A325242 (third omega), A325268 (second-to-last omega), A225485 or A325280 (length/frequency depth).

Programs

  • Mathematica
    nn=30;
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    fdadj[ptn_List]:=If[ptn=={},0,Length[NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]]];
    mfds=Table[Max@@fdadj/@IntegerPartitions[n],{n,nn}];
    Select[Range[Prime[nn]],fdadj[primeMS[#]]==mfds[[Total[primeMS[#]]]]&]

A244515 Number of partitions of n where the minimal multiplicity of any part is 2.

Original entry on oeis.org

0, 1, 0, 1, 0, 2, 1, 4, 2, 6, 4, 9, 6, 16, 9, 23, 18, 34, 27, 51, 40, 75, 63, 103, 90, 152, 130, 208, 191, 286, 267, 402, 368, 546, 518, 730, 709, 998, 954, 1322, 1305, 1751, 1740, 2330, 2299, 3056, 3074, 3968, 4031, 5202, 5249, 6721, 6877, 8642, 8888, 11147, 11432, 14248, 14747, 18097, 18838, 23093, 23938, 29186, 30489
Offset: 1

Views

Author

Joerg Arndt and Alois P. Heinz, Jun 29 2014

Keywords

Examples

			From _Gus Wiseman_, Jul 03 2019: (Start)
The a(2) = 1 through a(12) = 9 partitions are the following (empty columns not shown). The Heinz numbers of these partitions are given by A325240.
  11  22  33    22111  44      33111    55        33311      66
          2211         3311    2211111  3322      44111      4422
                       22211            4411      3311111    5511
                       221111           222211    221111111  33222
                                        331111               332211
                                        22111111             441111
                                                             2222211
                                                             33111111
                                                             2211111111
(End)
		

Crossrefs

Column k = 2 of A243978.

Programs

  • Maple
    b:= proc(n, i, k) option remember; `if`(n=0, 1, `if`(i<1, 0,
          b(n, i-1, k) +add(b(n-i*j, i-1, k), j=max(1, k)..n/i)))
        end:
    a:= n-> b(n$2, 2) -b(n$2, 3):
    seq(a(n), n=1..80);
  • Mathematica
    b[n_, i_, k_] := b[n, i, k] = If[n == 0, 1, If[i < 1, 0, b[n, i - 1, k] + Sum[b[n - i*j, i - 1, k], {j, Max[1, k], n/i}]]];
    a[n_] := b[n, n, 2] - b[n, n, 3];
    Array[a, 80] (* Jean-François Alcover, May 01 2018, translated from Maple *)
    Table[Length[Select[IntegerPartitions[n],Min@@Length/@Split[#]==2&]],{n,0,30}] (* Gus Wiseman, Jul 03 2019 *)

A325414 Irregular triangle read by rows where T(n,k) is the number of integer partitions of n with omega-sequence summing to n.

Original entry on oeis.org

1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 2, 0, 0, 1, 0, 1, 0, 0, 0, 2, 1, 0, 2, 1, 0, 1, 0, 1, 1, 2, 0, 3, 1, 1, 1, 0, 1, 0, 0, 0, 3, 0, 1, 4, 2, 2, 1, 1, 0, 1, 0, 1, 0, 4, 0, 3, 3, 2, 2, 2, 3, 1, 0, 1, 0, 0, 1, 4, 0, 3, 3, 3, 4, 1, 6, 3, 1, 0, 1
Offset: 0

Views

Author

Gus Wiseman, Apr 24 2019

Keywords

Comments

The omega-sequence of an integer partition is the sequence of lengths of the multisets obtained by repeatedly taking the multiset of multiplicities until a singleton is reached. For example, the partition (32211) has chain of multisets of multiplicities {1,1,2,2,3} -> {1,2,2} -> {1,2} -> {1,1} -> {2}, so its omega-sequence is (5,3,2,2,1) with sum 13, so (32211) is counted under T(9,13).

Examples

			Triangle begins:
  1
  0 1
  0 1 0 1
  0 1 0 0 1 1
  0 1 0 1 0 2 0 0 1
  0 1 0 0 0 2 1 0 2 1
  0 1 0 1 1 2 0 3 1 1 1
  0 1 0 0 0 3 0 1 4 2 2 1 1
  0 1 0 1 0 4 0 3 3 2 2 2 3 1
  0 1 0 0 1 4 0 3 3 3 4 1 6 3 1
  0 1 0 1 0 4 1 6 4 4 1 4 5 8 2 1
Row n = 9 counts the following partitions:
  9  333  54  432  441  3222    22221      411111  3321     32211     321111
          63  531  522  6111    33111              4221     42111
          72  621  711  222111  51111              4311     21111111
          81                    111111111          5211
                                                   2211111
                                                   3111111
		

Crossrefs

Row sums are A000041.
Row lengths are A325413(n) + 1 (because k starts at 0).
Number of nonzero terms in row n is A325415(n).
Integer partition triangles: A008284 (first omega), A116608 (second omega), A325242 (third omega), A325268 (second-to-last omega), A225485 or A325280 (frequency depth), A325414 (omega-sequence sum).

Programs

  • Mathematica
    omseq[ptn_List]:=If[ptn=={},{},Length/@NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]];
    Table[Length[Select[IntegerPartitions[n],Total[omseq[#]]==k&]],{n,0,10},{k,0,Max[Total/@omseq/@IntegerPartitions[n]]}]

A325466 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with k distinct differences of any degree > 0.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 0, 0, 1, 3, 1, 0, 0, 1, 3, 2, 1, 0, 0, 1, 5, 4, 0, 1, 0, 0, 1, 4, 6, 3, 0, 1, 0, 0, 1, 6, 6, 4, 3, 1, 1, 0, 0, 1, 6, 10, 4, 2, 4, 1, 2, 0, 0, 1, 7, 12, 8, 3, 3, 4, 1, 2, 1, 0, 1, 6, 13, 11, 2, 11, 3, 4, 0, 3, 1, 1, 1, 10, 16, 7, 10, 10
Offset: 0

Views

Author

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

Examples

			Triangle begins:
  1
  1  0
  1  1  0
  1  2  0  0
  1  3  1  0  0
  1  3  2  1  0  0
  1  5  4  0  1  0  0
  1  4  6  3  0  1  0  0
  1  6  6  4  3  1  1  0  0
  1  6 10  4  2  4  1  2  0  0
  1  7 12  8  3  3  4  1  2  1  0
  1  6 13 11  2 11  3  4  0  3  1  1
  1 10 16  7 10 10  6  6  5  1  1  2  1
  1  7 18 14  7 16 11  6  4  8  0  5  0  1
  1  9 20 18 10 20 13 10 10  4  5  5  2  2  2
  1 10 26 18 10 24 13 19 13 10  6  6  2  8  1  2
  1 11 25 24 16 28 19 24 14 15  9 10  9  5  2  7  1
Row 7 counts the following reversed partitions (empty columns not shown):
  (7)  (16)       (115)     (133)   (11122)
       (25)       (124)     (1123)
       (34)       (223)     (1222)
       (1111111)  (1114)
                  (11113)
                  (111112)
Row 9 counts the following reversed partitions (empty columns not shown):
(9)  (18)         (117)       (126)    (1125)   (1134)    (11223)  (111222)
     (27)         (135)       (144)    (11124)  (1224)             (1111122)
     (36)         (225)       (1233)            (11133)
     (45)         (234)       (12222)           (111123)
     (333)        (1116)
     (111111111)  (2223)
                  (11115)
                  (111114)
                  (1111113)
                  (11111112)
		

Crossrefs

Row sums are A000041. Column k = 1 is A088922.

Programs

  • Mathematica
    Table[Length[Select[Reverse/@IntegerPartitions[n],Length[Union@@Table[Differences[#,i],{i,1,Length[#]}]]==k&]],{n,0,16},{k,0,n}]

A378621 Antidiagonal-sums of absolute value of the array A175804(n,k) = n-th term of k-th differences of partition numbers (A000041).

Original entry on oeis.org

1, 1, 4, 5, 11, 16, 36, 65, 142, 285, 595, 1210, 2497, 5134, 10726, 22637, 48383, 104066, 224296, 481985, 1030299, 2188912, 4626313, 9743750, 20492711, 43114180, 90843475, 191776658, 405528200, 858384333, 1817311451, 3845500427, 8129033837, 17162815092
Offset: 0

Views

Author

Gus Wiseman, Dec 14 2024

Keywords

Examples

			Antidiagonal i + j = 3 of A175804 is (3, 1, 0, -1), so a(3) = 5.
		

Crossrefs

These are the antidiagonal-sums of the absolute value of A175804.
First column of the same array is A281425.
For primes we have A376681 or A376684, signed A140119 or A376683.
For composites we have A377035, signed A377034.
For squarefree numbers we have A377040, signed A377039.
For nonsquarefree numbers we have A377048, signed A377049.
For prime powers we have A377053, signed A377052.
The signed version is A377056.
The corresponding array for strict partitions is A378622, see A293467, A377285, A378971, A378970.
A000009 counts strict integer partitions, differences A087897, A378972.
A000041 counts integer partitions, differences A002865, A053445.

Programs

  • Mathematica
    nn=30;
    q=Table[PartitionsP[n],{n,0,nn}];
    t=Table[Sum[(-1)^(j-k)*Binomial[j,k]*q[[i+k]],{k,0,j}],{j,0,Length[q]/2},{i,Length[q]/2}]
    Total/@Abs/@Table[t[[j,i-j+1]],{i,nn/2},{j,i}]

A325260 Number of integer partitions of n whose omega-sequence covers an initial interval of positive integers.

Original entry on oeis.org

1, 1, 2, 2, 4, 5, 5, 8, 10, 12, 13, 18, 19, 24, 25, 31, 33, 40, 40, 49, 51, 59, 60, 71, 72, 83, 84, 96, 98, 111, 111, 126, 128, 142, 143, 160, 161, 178, 179, 197, 199, 218, 218, 239, 241, 261, 262, 285, 286, 309, 310, 334, 336, 361, 361, 388, 390, 416, 417, 446
Offset: 0

Views

Author

Gus Wiseman, Apr 16 2019

Keywords

Comments

The omega-sequence of an integer partition is the sequence of lengths of the multisets obtained by repeatedly taking the multiset of multiplicities until a singleton is reached. For example, the partition (32211) has chain of multisets of multiplicities {1,1,2,2,3} -> {1,2,2} -> {1,2} -> {1,1} -> {2}, so its omega-sequence is (5,3,2,2,1).
The Heinz numbers of these partitions are given by A325251.

Examples

			The a(1) = 1 through a(9) = 12 partitions:
  (1)  (2)   (3)   (4)    (5)    (6)    (7)     (8)     (9)
       (11)  (21)  (22)   (32)   (33)   (43)    (44)    (54)
                   (31)   (41)   (42)   (52)    (53)    (63)
                   (211)  (221)  (51)   (61)    (62)    (72)
                          (311)  (411)  (322)   (71)    (81)
                                        (331)   (332)   (441)
                                        (511)   (422)   (522)
                                        (3211)  (611)   (711)
                                                (3221)  (3321)
                                                (4211)  (4221)
                                                        (4311)
                                                        (5211)
		

Crossrefs

Integer partition triangles: A008284 (first omega), A116608 (second omega), A325242 (third omega), A325268 (second-to-last omega), A225485 or A325280 (length/frequency depth).

Programs

  • Mathematica
    normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
    omseq[ptn_List]:=If[ptn=={},{},Length/@NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]];
    Table[Length[Select[IntegerPartitions[n],normQ[omseq[#]]&]],{n,0,30}]

Formula

a(n) + A325262(n) = A000041(n).
Conjectures from Chai Wah Wu, Jan 13 2021: (Start)
a(n) = a(n-2) + a(n-3) + a(n-4) - a(n-5) - a(n-6) - a(n-7) + a(n-9) for n > 9.
G.f.: (-x^9 - x^8 - x^7 + x^6 - x^5 - x^2 - x - 1)/((x - 1)^3*(x + 1)^2*(x^2 + 1)*(x^2 + x + 1)). (End)

A325262 Number of integer partitions of n whose omega-sequence does not cover an initial interval of positive integers.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 6, 7, 12, 18, 29, 38, 58, 77, 110, 145, 198, 257, 345, 441, 576, 733, 942, 1184, 1503, 1875, 2352, 2914, 3620, 4454, 5493, 6716, 8221, 10001, 12167, 14723, 17816, 21459, 25836, 30988, 37139, 44365, 52956, 63022, 74934, 88873, 105296, 124469
Offset: 0

Views

Author

Gus Wiseman, Apr 23 2019

Keywords

Comments

The omega-sequence of an integer partition is the sequence of lengths of the multisets obtained by repeatedly taking the multiset of multiplicities until a singleton is reached. For example, the partition (32211) has chain of multisets of multiplicities {1,1,2,2,3} -> {1,2,2} -> {1,2} -> {1,1} -> {2}, so its omega-sequence is (5,3,2,2,1).

Examples

			The a(3) = 1 through a(9) = 18 partitions:
  (111)  (1111)  (2111)   (222)     (421)      (431)       (333)
                 (11111)  (321)     (2221)     (521)       (432)
                          (2211)    (4111)     (2222)      (531)
                          (3111)    (22111)    (3311)      (621)
                          (21111)   (31111)    (5111)      (3222)
                          (111111)  (211111)   (22211)     (6111)
                                    (1111111)  (32111)     (22221)
                                               (41111)     (32211)
                                               (221111)    (33111)
                                               (311111)    (42111)
                                               (2111111)   (51111)
                                               (11111111)  (222111)
                                                           (321111)
                                                           (411111)
                                                           (2211111)
                                                           (3111111)
                                                           (21111111)
                                                           (111111111)
		

Crossrefs

Integer partition triangles: A008284 (first omega), A116608 (second omega), A325242 (third omega), A325268 (second-to-last omega), A225485 or A325280 (frequency depth), A325249 (sum).

Programs

  • Mathematica
    normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
    omseq[ptn_List]:=If[ptn=={},{},Length/@NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]];
    Table[Length[Select[IntegerPartitions[n],!normQ[omseq[#]]&]],{n,0,30}]

A325413 Largest sum of the omega-sequence of an integer partition of n.

Original entry on oeis.org

0, 1, 3, 5, 8, 9, 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70
Offset: 0

Views

Author

Gus Wiseman, Apr 24 2019

Keywords

Comments

The omega-sequence of an integer partition is the sequence of lengths of the multisets obtained by repeatedly taking the multiset of multiplicities until a singleton is reached. For example, the partition (32211) has chain of multisets of multiplicities {1,1,2,2,3} -> {1,2,2} -> {1,2} -> {1,1} -> {2}, so its omega-sequence is (5,3,2,2,1) with sum 13.
Appears to contain all nonnegative integers except 2, 4, 6, 7, and 11.

Examples

			The partitions of 9 organized by sum of omega-sequence (first column) are:
   1: (9)
   4: (333)
   5: (81) (72) (63) (54)
   7: (621) (531) (432)
   8: (711) (522) (441)
   9: (6111) (3222) (222111)
  10: (51111) (33111) (22221) (111111111)
  11: (411111)
  12: (5211) (4311) (4221) (3321) (3111111) (2211111)
  13: (42111) (32211) (21111111)
  14: (321111)
The largest term in the first column is 14, so a(9) = 14.
		

Crossrefs

Row lengths of A325414.
Integer partition triangles: A008284 (first omega), A116608 (second omega), A325242 (third omega), A325268 (second-to-last omega), A225485 or A325280 (frequency depth), A325414 (omega-sequence sum).

Programs

  • Mathematica
    omseq[ptn_List]:=If[ptn=={},{},Length/@NestWhileList[Sort[Length/@Split[#]]&,ptn,Length[#]>1&]];
    Table[Max[Total/@omseq/@IntegerPartitions[n]],{n,0,30}]
Previous Showing 21-30 of 39 results. Next