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.

Showing 1-10 of 14 results. Next

A115720 Triangle T(n,k) is the number of partitions of n with Durfee square k.

Original entry on oeis.org

1, 0, 1, 0, 2, 0, 3, 0, 4, 1, 0, 5, 2, 0, 6, 5, 0, 7, 8, 0, 8, 14, 0, 9, 20, 1, 0, 10, 30, 2, 0, 11, 40, 5, 0, 12, 55, 10, 0, 13, 70, 18, 0, 14, 91, 30, 0, 15, 112, 49, 0, 16, 140, 74, 1, 0, 17, 168, 110, 2, 0, 18, 204, 158, 5, 0, 19, 240, 221, 10, 0, 20, 285, 302, 20, 0, 21, 330, 407
Offset: 0

Views

Author

Keywords

Comments

T(n,k) is number of partitions of n-k^2 into parts of 2 kinds with at most k of each kind.

Examples

			Triangle starts:
  1;
  0,  1;
  0,  2;
  0,  3;
  0,  4,  1;
  0,  5,  2;
  0,  6,  5;
  0,  7,  8;
  0,  8, 14;
  0,  9, 20,  1;
  0, 10, 30,  2;
From _Gus Wiseman_, Apr 12 2019: (Start)
Row n = 9 counts the following partitions:
  (9)          (54)       (333)
  (81)         (63)
  (711)        (72)
  (6111)       (432)
  (51111)      (441)
  (411111)     (522)
  (3111111)    (531)
  (21111111)   (621)
  (111111111)  (3222)
               (3321)
               (4221)
               (4311)
               (5211)
               (22221)
               (32211)
               (33111)
               (42111)
               (222111)
               (321111)
               (2211111)
(End)
		

Crossrefs

For a version without zeros see A115994. Row lengths are A003059. Row sums are A000041. Column k = 2 is A006918. Column k = 3 is A117485.
Related triangles are A096771, A325188, A325189, A325192, with Heinz-encoded versions A263297, A325169, A065770, A325178.

Programs

  • Maple
    b:= proc(n, i) option remember;
          `if`(n=0, 1, `if`(i<1, 0, b(n, i-1)+`if`(i>n, 0, b(n-i, i))))
        end:
    T:= (n, k)-> add(b(m, k)*b(n-k^2-m, k), m=0..n-k^2):
    seq(seq(T(n, k), k=0..floor(sqrt(n))), n=0..30); # Alois P. Heinz, Apr 09 2012
  • Mathematica
    b[n_, i_] := b[n, i] = If[n==0, 1, If[i<1, 0, b[n, i-1] + If[i>n, 0, b[n-i, i]]]]; T[n_, k_] := Sum[b[m, k]*b[n-k^2-m, k], {m, 0, n-k^2}]; Table[ T[n, k], {n, 0, 30}, {k, 0, Sqrt[n]}] // Flatten (* Jean-François Alcover, Dec 03 2015, after Alois P. Heinz *)
    durf[ptn_]:=Length[Select[Range[Length[ptn]],ptn[[#]]>=#&]];
    Table[Length[Select[IntegerPartitions[n],durf[#]==k&]],{n,0,10},{k,0,Sqrt[n]}] (* Gus Wiseman, Apr 12 2019 *)

Formula

T(n,k) = Sum_{i=0..n-k^2} P*(i,k)*P*(n-k^2-i), where P*(n,k) = P(n+k,k) is the number of partitions of n objects into at most k parts.

A257541 The rank of the partition with Heinz number n.

Original entry on oeis.org

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

Views

Author

Emeric Deutsch, May 09 2015

Keywords

Comments

The rank of a partition p is the largest part of p minus the number of parts of p.
The Heinz number of a partition p = [p_1, p_2, ..., p_r] is defined as Product(p_j-th prime, j=1...r) (concept used by Alois P. Heinz in A215366 as an "encoding" of a partition). For example, for the partition [1,1,1] the Heinz number is 2*2*2 = 8. Its rank is 1 - 3 = -2 = a(8). - Emeric Deutsch, Jun 09 2015
This is the Dyson rank (St000145), which is different from the Frobenius rank (St000183); see the FindStat links. - Gus Wiseman, Apr 13 2019

Examples

			a(24) = -2. Indeed, the partition corresponding to the Heinz number 24 = 2*2*2*3 is [1,1,1,2]; consequently, a(24)= 2 - 4 = -2.
		

References

  • G. E. Andrews, K. Eriksson, Integer Partitions, Cambridge Univ. Press, Cambridge, 2004.

Crossrefs

Positions of 0's are A106529. Positions of 1's are A325233. Positions of -1's are A325234.

Programs

  • Maple
    with(numtheory): a := proc(n) options operator, arrow: pi(max(factorset(n)))-bigomega(n) end proc: seq(a(n), n = 2 .. 120);
  • Mathematica
    Table[PrimePi@ FactorInteger[n][[-1, 1]] - PrimeOmega@ n, {n, 2, 76}] (* Michael De Vlieger, May 09 2015 *)

Formula

a(n) = q(largest prime factor of n) - bigomega(n), where q(p) is defined by q-th prime = p while bigomega(n) is the number of prime factors of n, including multiplicities.

A096771 Triangle read by rows: T(n,m) is the number of partitions of n that (just) fit inside an m X m box, but not in an (m-1) X (m-1) box. Partitions of n with Max(max part, length) = m.

Original entry on oeis.org

1, 0, 2, 0, 1, 2, 0, 1, 2, 2, 0, 0, 3, 2, 2, 0, 0, 3, 4, 2, 2, 0, 0, 2, 5, 4, 2, 2, 0, 0, 1, 7, 6, 4, 2, 2, 0, 0, 1, 6, 9, 6, 4, 2, 2, 0, 0, 0, 7, 11, 10, 6, 4, 2, 2, 0, 0, 0, 5, 14, 13, 10, 6, 4, 2, 2, 0, 0, 0, 5, 15, 19, 14, 10, 6, 4, 2, 2, 0, 0, 0, 3, 17, 22, 21, 14, 10, 6, 4, 2, 2, 0, 0, 0, 2, 17, 29
Offset: 1

Views

Author

Wouter Meeussen, Aug 21 2004

Keywords

Comments

Row sums are A000041. Columns are finite and sum to A051924. The final floor(n/2) terms of each row are the reverse of the initial terms of 2*A000041.

Examples

			T(5,3)=3, counting 32, 311 and 221.
From _Gus Wiseman_, Apr 12 2019: (Start)
Triangle begins:
  1
  0  2
  0  1  2
  0  1  2  2
  0  0  3  2  2
  0  0  3  4  2  2
  0  0  2  5  4  2  2
  0  0  1  7  6  4  2  2
  0  0  1  6  9  6  4  2  2
  0  0  0  7 11 10  6  4  2  2
  0  0  0  5 14 13 10  6  4  2  2
  0  0  0  5 15 19 14 10  6  4  2  2
  0  0  0  3 17 22 21 14 10  6  4  2  2
  0  0  0  2 17 29 27 22 14 10  6  4  2  2
  0  0  0  1 17 33 36 29 22 14 10  6  4  2  2
  0  0  0  1 15 39 45 41 30 22 14 10  6  4  2  2
  0  0  0  0 14 41 57 52 43 30 22 14 10  6  4  2  2
  0  0  0  0 11 47 67 69 57 44 30 22 14 10  6  4  2  2
  0  0  0  0  9 46 81 85 76 59 44 30 22 14 10  6  4  2  2
(End)
		

Crossrefs

A version with reflected rows is A338621.
Related triangles are A115720, A325188, A325189, A325192, A325200, with Heinz-encoded versions A257990, A325169, A065770, A325178, A325195.

Programs

  • Mathematica
    Table[Count[Partitions[n], q_List /; Max[Length[q], Max[q]]===k], {n, 16}, {k, n}]
  • PARI
    row(n)={my(r=vector(n)); forpart(p=n, r[max(#p,p[#p])]++); r} \\ Andrew Howroyd, Jan 12 2024

Formula

Sum_{k>=1} k*T(n,k) = A368985(n). - Andrew Howroyd, Jan 12 2024

A325192 Regular triangle read by rows where T(n,k) is the number of integer partitions of n such that the difference between the length of the minimal square containing and the maximal square contained in the Young diagram is k.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Apr 08 2019

Keywords

Comments

The maximal square contained in the Young diagram of an integer partition is called its Durfee square, and its length is the rank of the partition.

Examples

			Triangle begins:
  1
  1  0
  0  2  0
  0  1  2  0
  1  0  2  2  0
  0  2  1  2  2  0
  0  3  2  2  2  2  0
  0  2  4  3  2  2  2  0
  0  1  7  4  4  2  2  2  0
  1  0  6  8  5  4  2  2  2  0
  0  2  5 11  8  6  4  2  2  2  0
  0  3  4 12 12  9  6  4  2  2  2  0
  0  4  5 13 17 12 10  6  4  2  2  2  0
  0  3  9 12 20 18 13 10  6  4  2  2  2  0
  0  2 12 15 23 25 18 14 10  6  4  2  2  2  0
  0  1 15 19 26 30 26 19 14 10  6  4  2  2  2  0
Row 9 counts the following partitions (empty columns not shown):
   333   432    54      63       72        711       81         9
         441    522     621      6111      3111111   21111111   111111111
         3222   531     51111    411111
         3321   5211    222111   2211111
         4221   22221   321111
         4311   32211
                33111
                42111
		

References

  • Richard P. Stanley, Enumerative Combinatorics, Volume 2, Cambridge University Press, 1999, p. 289.

Crossrefs

Row sums are A000041. Column k = 1 is A325181. Column k = 2 is A325182.

Programs

  • Mathematica
    durf[ptn_]:=Length[Select[Range[Length[ptn]],ptn[[#]]>=#&]];
    codurf[ptn_]:=Max[Length[ptn],Max[ptn]];
    Table[Length[Select[IntegerPartitions[n],codurf[#]-durf[#]==k&]],{n,0,15},{k,0,n}]
  • PARI
    row(n)={my(r=vector(n+1)); if(n==0, r[1]=1, forpart(p=n, my(c=1); while(c<#p && cAndrew Howroyd, Jan 12 2024

Formula

Sum_{k=1..n} k*T(n,k) = A368985(n) - A115995(n). - Andrew Howroyd, Jan 12 2024

A325200 Regular triangle read by rows where T(n,k) is the number of integer partitions of n such that the difference between the length of the minimal triangular partition containing and the maximal triangular partition contained in the Young diagram is k.

Original entry on oeis.org

1, 1, 0, 0, 2, 0, 1, 0, 2, 0, 0, 3, 0, 2, 0, 0, 3, 2, 0, 2, 0, 1, 0, 6, 2, 0, 2, 0, 0, 4, 3, 4, 2, 0, 2, 0, 0, 6, 2, 6, 4, 2, 0, 2, 0, 0, 4, 9, 5, 4, 4, 2, 0, 2, 0, 1, 0, 15, 6, 8, 4, 4, 2, 0, 2, 0, 0, 5, 12, 12, 9, 6, 4, 4, 2, 0, 2, 0, 0, 10, 6, 21, 10, 12, 6, 4, 4, 2, 0, 2, 0
Offset: 0

Views

Author

Gus Wiseman, Apr 11 2019

Keywords

Examples

			Triangle begins:
  1
  1  0
  0  2  0
  1  0  2  0
  0  3  0  2  0
  0  3  2  0  2  0
  1  0  6  2  0  2  0
  0  4  3  4  2  0  2  0
  0  6  2  6  4  2  0  2  0
  0  4  9  5  4  4  2  0  2  0
  1  0 15  6  8  4  4  2  0  2  0
  0  5 12 12  9  6  4  4  2  0  2  0
  0 10  6 21 10 12  6  4  4  2  0  2  0
  0 10 12 20 18 13 10  6  4  4  2  0  2  0
  0  5 27 20 23 16 16 10  6  4  4  2  0  2  0
  1  0 38 22 32 22 19 14 10  6  4  4  2  0  2  0
  0  6 34 38 34 35 20 22 14 10  6  4  4  2  0  2  0
  0 15 22 57 44 40 34 23 20 14 10  6  4  4  2  0  2  0
  0 20 20 71 55 54 45 32 26 20 14 10  6  4  4  2  0  2  0
  0 15 43 70 71 66 60 44 35 24 20 14 10  6  4  4  2  0  2  0
  0  6 74 64 99 83 70 65 42 38 24 20 14 10  6  4  4  2  0  2  0
Row n = 9 counts the following partitions (empty columns not shown):
  (432)   (333)    (54)      (63)      (72)       (81)        (9)
  (3321)  (441)    (621)     (6111)    (711)      (21111111)  (111111111)
  (4221)  (522)    (22221)   (222111)  (2211111)
  (4311)  (531)    (51111)   (411111)  (3111111)
          (3222)   (321111)
          (5211)
          (32211)
          (33111)
          (42111)
		

Crossrefs

Row sums are A000041. Column k = 1 is A325191. Column k = 2 is A325199.
T(n,k) = A325189(n,k) - A325188(n,k).

Programs

  • Mathematica
    otb[ptn_]:=Min@@MapIndexed[#1+#2[[1]]-1&,Append[ptn,0]];
    otbmax[ptn_]:=Max@@MapIndexed[#1+#2[[1]]-1&,Append[ptn,0]];
    Table[Length[Select[IntegerPartitions[n],otbmax[#]-otb[#]==k&]],{n,0,20},{k,0,n}]
  • PARI
    row(n)={my(r=vector(n+1)); forpart(p=n, my(b=#p,c=0); for(i=1, #p, my(x=#p-i+p[i]); b=min(b,x); c=max(c,x)); r[c-b+1]++); r} \\ Andrew Howroyd, Jan 12 2024

Formula

Sum_{k=1..n} k*T(n,k) = A366157(n) - A368986(n). - Andrew Howroyd, Jan 13 2024

A325195 Difference between the length of the minimal triangular partition containing and the maximal triangular partition contained in the Young diagram of the integer partition with Heinz number n.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Apr 11 2019

Keywords

Comments

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Examples

			The partition (3,3) has Heinz number 25 and diagram
  o o o
  o o o
containing maximal triangular partition
  o o
  o
and contained in minimal triangular partition
  o o o o
  o o o
  o o
  o
so a(25) = 4 - 2 = 2.
		

Crossrefs

Programs

  • Mathematica
    primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
    otb[ptn_]:=Min@@MapIndexed[#1+#2[[1]]-1&,Append[ptn,0]];
    otbmax[ptn_]:=Max@@MapIndexed[#1+#2[[1]]-1&,Append[ptn,0]];
    Table[otbmax[primeptn[n]]-otb[primeptn[n]],{n,100}]

A325191 Number of integer partitions of n such that the difference between the length of the minimal triangular partition containing and the maximal triangular partition contained in the Young diagram is 1.

Original entry on oeis.org

0, 0, 2, 0, 3, 3, 0, 4, 6, 4, 0, 5, 10, 10, 5, 0, 6, 15, 20, 15, 6, 0, 7, 21, 35, 35, 21, 7, 0, 8, 28, 56, 70, 56, 28, 8, 0, 9, 36, 84, 126, 126, 84, 36, 9, 0, 10, 45, 120, 210, 252, 210, 120, 45, 10, 0, 11, 55, 165, 330, 462
Offset: 0

Views

Author

Gus Wiseman, Apr 11 2019

Keywords

Comments

The Heinz numbers of these partitions are given by A325196.
Under the Bulgarian solitaire step, these partitions form cycles of length >= 2. Length >= 2 means not the length=1 self-loop which occurs from the triangular partition when n is a triangular number. See A074909 for self-loops included. - Kevin Ryde, Sep 27 2019

Examples

			The a(2) = 2 through a(12) = 10 partitions (empty columns not shown):
  (2)   (22)   (32)   (322)   (332)   (432)   (4322)   (4332)
  (11)  (31)   (221)  (331)   (422)   (3321)  (4331)   (4422)
        (211)  (311)  (421)   (431)   (4221)  (4421)   (4431)
                      (3211)  (3221)  (4311)  (5321)   (5322)
                              (3311)          (43211)  (5331)
                              (4211)                   (5421)
                                                       (43221)
                                                       (43311)
                                                       (44211)
                                                       (53211)
		

Crossrefs

Programs

  • Mathematica
    otb[ptn_]:=Min@@MapIndexed[#1+#2[[1]]-1&,Append[ptn,0]];
    otbmax[ptn_]:=Max@@MapIndexed[#1+#2[[1]]-1&,Append[ptn,0]];
    Table[Length[Select[IntegerPartitions[n],otb[#]+1==otbmax[#]&]],{n,0,30}]
  • PARI
    a(n) = my(t=ceil(sqrtint(8*n+1)/2), r=n-t*(t-1)/2); if(r==0,0, binomial(t,r)); \\ Kevin Ryde, Sep 27 2019

Formula

Positions of zeros are A000217 = n * (n + 1) / 2.
a(n) = A074909(n) - A010054(n). - Kevin Ryde, Sep 27 2019

A325179 Heinz numbers of integer partitions such that the difference between the length of the minimal square containing and the maximal square contained in the Young diagram is 1.

Original entry on oeis.org

3, 4, 6, 15, 18, 25, 27, 30, 45, 50, 75, 175, 245, 250, 343, 350, 375, 490, 525, 625, 686, 735, 875, 1029, 1225, 1715, 3773, 4802, 5929, 7203, 7546, 9317, 11319, 11858, 12005, 14641, 16807, 17787, 18634, 18865, 26411, 27951, 29282, 29645, 41503, 43923, 46585
Offset: 1

Views

Author

Gus Wiseman, Apr 08 2019

Keywords

Comments

The enumeration of these partitions by sum is given by A325181.
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 begins:
    3: {2}
    4: {1,1}
    6: {1,2}
   15: {2,3}
   18: {1,2,2}
   25: {3,3}
   27: {2,2,2}
   30: {1,2,3}
   45: {2,2,3}
   50: {1,3,3}
   75: {2,3,3}
  175: {3,3,4}
  245: {3,4,4}
  250: {1,3,3,3}
  343: {4,4,4}
  350: {1,3,3,4}
  375: {2,3,3,3}
  490: {1,3,4,4}
  525: {2,3,3,4}
  625: {3,3,3,3}
		

Crossrefs

Numbers k such that A263297(k) - A257990(k) = 1.
Positions of 1's in A325178.

Programs

  • Mathematica
    durf[n_]:=Length[Select[Range[PrimeOmega[n]],Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]][[#]]>=#&]];
    codurf[n_]:=If[n==1,0,Max[PrimeOmega[n],PrimePi[FactorInteger[n][[-1,1]]]]];
    Select[Range[1000],codurf[#]-durf[#]==1&]

A325180 Heinz number of integer partitions such that the difference between the length of the minimal square containing and the maximal square contained in the Young diagram is 2.

Original entry on oeis.org

5, 8, 10, 12, 20, 21, 35, 36, 42, 49, 54, 60, 63, 70, 81, 84, 90, 98, 100, 105, 126, 135, 140, 147, 150, 189, 196, 210, 225, 275, 294, 315, 385, 441, 500, 539, 550, 605, 700, 750, 770, 825, 847, 980, 1050, 1078, 1100, 1125, 1155, 1210, 1250, 1331, 1372, 1375
Offset: 1

Views

Author

Gus Wiseman, Apr 08 2019

Keywords

Comments

The enumeration of these partitions by sum is given by A325182.
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 begins:
    5: {3}
    8: {1,1,1}
   10: {1,3}
   12: {1,1,2}
   20: {1,1,3}
   21: {2,4}
   35: {3,4}
   36: {1,1,2,2}
   42: {1,2,4}
   49: {4,4}
   54: {1,2,2,2}
   60: {1,1,2,3}
   63: {2,2,4}
   70: {1,3,4}
   81: {2,2,2,2}
   84: {1,1,2,4}
   90: {1,2,2,3}
   98: {1,4,4}
  100: {1,1,3,3}
  105: {2,3,4}
		

Crossrefs

Numbers k such that A263297(k) - A257990(k) = 2.
Positions of 2's in A325178.

Programs

  • Mathematica
    durf[n_]:=Length[Select[Range[PrimeOmega[n]],Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]][[#]]>=#&]];
    codurf[n_]:=If[n==1,0,Max[PrimeOmega[n],PrimePi[FactorInteger[n][[-1,1]]]]];
    Select[Range[1000],codurf[#]-durf[#]==2&]

A325193 Number of integer partitions whose sum plus co-rank is n, where co-rank is maximum of length and largest part.

Original entry on oeis.org

1, 0, 1, 0, 2, 1, 3, 2, 5, 5, 8, 8, 14, 14, 22, 24, 35, 39, 54, 62, 84, 97, 127, 148, 192, 224, 284, 334, 418, 492, 610, 716, 880, 1035, 1259, 1480, 1790, 2100, 2522, 2958, 3533, 4135, 4916, 5742, 6798, 7928, 9344, 10878, 12778, 14846, 17378, 20156, 23520
Offset: 0

Views

Author

Gus Wiseman, Apr 12 2019

Keywords

Examples

			The a(4) = 2 through a(12) = 14 partitions:
  (2)   (21)  (3)    (31)   (4)     (33)    (5)      (43)     (6)
  (11)        (22)   (211)  (32)    (41)    (42)     (51)     (44)
              (111)         (221)   (222)   (322)    (332)    (52)
                            (311)   (321)   (331)    (421)    (333)
                            (1111)  (2111)  (411)    (2221)   (422)
                                            (2211)   (3211)   (431)
                                            (3111)   (4111)   (511)
                                            (11111)  (21111)  (2222)
                                                              (3221)
                                                              (3311)
                                                              (4211)
                                                              (22111)
                                                              (31111)
                                                              (111111)
		

Crossrefs

Programs

  • Mathematica
    Table[Sum[Length[Select[IntegerPartitions[k],Max[Length[#],Max[#]]==n-k&]],{k,0,n}],{n,0,30}]
Showing 1-10 of 14 results. Next