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-9 of 9 results.

A325188 Regular triangle read by rows where T(n,k) is the number of integer partitions of n with origin-to-boundary graph-distance equal to k.

Original entry on oeis.org

1, 0, 1, 0, 2, 0, 0, 2, 1, 0, 0, 2, 3, 0, 0, 0, 2, 5, 0, 0, 0, 0, 2, 8, 1, 0, 0, 0, 0, 2, 9, 4, 0, 0, 0, 0, 0, 2, 12, 8, 0, 0, 0, 0, 0, 0, 2, 13, 15, 0, 0, 0, 0, 0, 0, 0, 2, 16, 23, 1, 0, 0, 0, 0, 0, 0, 0, 2, 17, 32, 5, 0, 0, 0, 0, 0, 0, 0
Offset: 0

Views

Author

Gus Wiseman, Apr 11 2019

Keywords

Comments

The origin-to-boundary graph-distance of a Young diagram is the minimum number of unit steps right or down from the upper-left square to a nonsquare in the lower-right quadrant. It is also the side-length of the maximum triangular partition contained inside the diagram.

Examples

			Triangle begins:
  1
  0  1
  0  2  0
  0  2  1  0
  0  2  3  0  0
  0  2  5  0  0  0
  0  2  8  1  0  0  0
  0  2  9  4  0  0  0  0
  0  2 12  8  0  0  0  0  0
  0  2 13 15  0  0  0  0  0  0
  0  2 16 23  1  0  0  0  0  0  0
  0  2 17 32  5  0  0  0  0  0  0  0
  0  2 20 43 12  0  0  0  0  0  0  0  0
  0  2 21 54 24  0  0  0  0  0  0  0  0  0
  0  2 24 67 42  0  0  0  0  0  0  0  0  0  0
  0  2 25 82 66  1  0  0  0  0  0  0  0  0  0  0
		

Crossrefs

Programs

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

Formula

Sum_{k=1..n} k*T(n,k) = A368986(n).

A325189 Regular triangle read by rows where T(n,k) is the number of integer partitions of n with maximum origin-to-boundary graph-distance equal to k.

Original entry on oeis.org

1, 0, 1, 0, 0, 2, 0, 0, 1, 2, 0, 0, 0, 3, 2, 0, 0, 0, 3, 2, 2, 0, 0, 0, 1, 6, 2, 2, 0, 0, 0, 0, 7, 4, 2, 2, 0, 0, 0, 0, 6, 8, 4, 2, 2, 0, 0, 0, 0, 4, 12, 6, 4, 2, 2, 0, 0, 0, 0, 1, 15, 12, 6, 4, 2, 2, 0, 0, 0, 0, 0, 17, 15, 10, 6, 4, 2, 2
Offset: 0

Views

Author

Gus Wiseman, Apr 11 2019

Keywords

Comments

The maximum origin-to-boundary graph-distance of an integer partition is one plus the maximum number of unit steps East or South in the Young diagram that can be followed, starting from the upper-left square, to reach a boundary square in the lower-right quadrant. It is also the side-length of the minimum triangular partition containing the diagram.

Examples

			Triangle begins:
  1
  0  1
  0  0  2
  0  0  1  2
  0  0  0  3  2
  0  0  0  3  2  2
  0  0  0  1  6  2  2
  0  0  0  0  7  4  2  2
  0  0  0  0  6  8  4  2  2
  0  0  0  0  4 12  6  4  2  2
  0  0  0  0  1 15 12  6  4  2  2
  0  0  0  0  0 17 15 10  6  4  2  2
  0  0  0  0  0 14 23 16 10  6  4  2  2
  0  0  0  0  0 10 30 23 14 10  6  4  2  2
  0  0  0  0  0  5 39 29 24 14 10  6  4  2  2
  0  0  0  0  0  1 42 42 31 22 14 10  6  4  2  2
Row 9 counts the following partitions:
  (432)   (54)     (63)      (72)       (81)        (9)
  (3321)  (333)    (621)     (711)      (21111111)  (111111111)
  (4221)  (441)    (6111)    (2211111)
  (4311)  (522)    (222111)  (3111111)
          (531)    (321111)
          (3222)   (411111)
          (5211)
          (22221)
          (32211)
          (33111)
          (42111)
          (51111)
		

Crossrefs

Programs

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

Formula

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

A325187 Number of integer partitions of n such that the upper-left square of the Young diagram has strictly greater graph-distance from the lower-right boundary than any other square.

Original entry on oeis.org

1, 0, 1, 3, 3, 5, 9, 14, 20, 26, 38, 53, 75, 101, 132, 175, 229, 301, 394, 509, 650, 826, 1043, 1315, 1656, 2074, 2590, 3218, 3975, 4896, 6008, 7361, 8989, 10960, 13323, 16159, 19531, 23553, 28323, 34002, 40723, 48694, 58115, 69249, 82350, 97766, 115832
Offset: 1

Views

Author

Gus Wiseman, Apr 11 2019

Keywords

Comments

The k-th part of the origin-to-boundary partition of a Young diagram is the number of squares graph-distance k from the lower-right boundary. The sequence gives the number of integer partitions of n whose Young diagram has last part of its origin-to-boundary partition equal to 1.
The Heinz numbers of these partitions are given by A325185.

Examples

			The a(1) = 1 through a(8) = 14 partitions:
  (1)  (21)  (22)   (41)    (51)     (61)      (71)
             (31)   (311)   (321)    (322)     (332)
             (211)  (2111)  (411)    (331)     (422)
                            (3111)   (421)     (431)
                            (21111)  (511)     (521)
                                     (3211)    (611)
                                     (4111)    (3221)
                                     (31111)   (3311)
                                     (211111)  (4211)
                                               (5111)
                                               (32111)
                                               (41111)
                                               (311111)
                                               (2111111)
		

Crossrefs

Programs

  • Mathematica
    otb[ptn_]:=Min@@MapIndexed[#1+#2[[1]]-1&,Append[ptn,0]];
    Table[Length[Select[IntegerPartitions[n],otb[#]>otb[Rest[#]]&&otb[#]>otb[DeleteCases[#-1,0]]&]],{n,30}]

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}]

A325196 Heinz numbers of integer partitions 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

3, 4, 9, 10, 12, 15, 18, 20, 42, 45, 50, 60, 63, 70, 75, 84, 90, 100, 105, 126, 140, 150, 294, 315, 330, 350, 420, 441, 462, 490, 495, 525, 550, 588, 630, 660, 693, 700, 735, 770, 825, 882, 924, 980, 990, 1050, 1100, 1155, 1386, 1470, 1540, 1650, 2730, 3234
Offset: 1

Views

Author

Gus Wiseman, Apr 11 2019

Keywords

Comments

The enumeration of these partitions by sum is given by A325191.

Examples

			The sequence of terms together with their prime indices begins:
    3: {2}
    4: {1,1}
    9: {2,2}
   10: {1,3}
   12: {1,1,2}
   15: {2,3}
   18: {1,2,2}
   20: {1,1,3}
   42: {1,2,4}
   45: {2,2,3}
   50: {1,3,3}
   60: {1,1,2,3}
   63: {2,2,4}
   70: {1,3,4}
   75: {2,3,3}
   84: {1,1,2,4}
   90: {1,2,2,3}
  100: {1,1,3,3}
  105: {2,3,4}
  126: {1,2,2,4}
		

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]];
    Select[Range[1000],otbmax[primeptn[#]]-otb[primeptn[#]]==1&]

A325184 Last part of the origin-to-boundary partition of the Young diagram of the integer partition with Heinz number n.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Apr 08 2019

Keywords

Comments

The k-th part of the origin-to-boundary partition of a Young diagram is the number of squares graph-distance k from the lower-right boundary.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Examples

			The partition with Heinz number 7865 is (6,5,5,3), with diagram
  o o o o o o
  o o o o o
  o o o o o
  o o o
with origin-to-boundary graph-distances
  4 4 4 3 2 1
  3 3 3 2 1
  2 2 2 1 1
  1 1 1
giving the origin-to-boundary partition (7,5,4,3) with last part 3, so a(7865) = 3.
		

Crossrefs

Positions of 1's are A325185. Positions of 2's are A325186.

Programs

  • Mathematica
    primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
    ptnmat[ptn_]:=PadRight[(ConstantArray[1,#]&)/@Sort[ptn,Greater],{Length[ptn],Max@@ptn}+1];
    corpos[mat_]:=ReplacePart[mat,Select[Position[mat,1],Times@@Extract[mat,{#+{1,0},#+{0,1}}]==0&]->0];
    Table[Apply[Plus,If[n==1,{},FixedPointList[corpos,ptnmat[primeptn[n]]][[-3]]],{0,1}],{n,100}]

A325185 Heinz numbers of integer partitions such that the upper-left square of the Young diagram has strictly greater graph-distance from the lower-right boundary than any other square.

Original entry on oeis.org

2, 6, 9, 10, 12, 14, 20, 22, 24, 26, 28, 30, 34, 38, 40, 42, 44, 45, 46, 48, 50, 52, 56, 58, 60, 62, 63, 66, 68, 70, 74, 75, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 99, 100, 102, 104, 106, 110, 112, 114, 116, 117, 118, 120, 122, 124, 125, 126, 130, 132
Offset: 1

Views

Author

Gus Wiseman, Apr 08 2019

Keywords

Comments

The k-th part of the origin-to-boundary partition of a Young diagram is the number of squares graph-distance k from the lower-right boundary. The sequence gives all Heinz numbers of integer partitions whose Young diagram has last part of its origin-to-boundary partition equal to 1.
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:
    2: {1}
    6: {1,2}
    9: {2,2}
   10: {1,3}
   12: {1,1,2}
   14: {1,4}
   20: {1,1,3}
   22: {1,5}
   24: {1,1,1,2}
   26: {1,6}
   28: {1,1,4}
   30: {1,2,3}
   34: {1,7}
   38: {1,8}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   45: {2,2,3}
   46: {1,9}
   48: {1,1,1,1,2}
		

Crossrefs

Programs

  • Mathematica
    hptn[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]];
    Select[Range[2,100],otb[hptn[#]]>otb[Rest[hptn[#]]]&&otb[hptn[#]]>otb[DeleteCases[hptn[#]-1,0]]&]

A325186 Heinz numbers of integer partitions whose Young diagram has last part of its origin-to-boundary partition equal to 2.

Original entry on oeis.org

3, 4, 15, 18, 21, 25, 27, 33, 36, 39, 51, 57, 69, 72, 87, 93, 105, 111, 123, 129, 141, 144, 147, 150, 159, 165, 175, 177, 183, 195, 201, 213, 219, 225, 231, 237, 245, 249, 250, 255, 267, 273, 275, 285, 288, 291, 300, 303, 309, 321, 325, 327, 339, 343, 345, 357
Offset: 1

Views

Author

Gus Wiseman, Apr 08 2019

Keywords

Comments

The k-th part of the origin-to-boundary partition of a Young diagram is the number of squares graph-distance k from the lower-right boundary.
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}
   15: {2,3}
   18: {1,2,2}
   21: {2,4}
   25: {3,3}
   27: {2,2,2}
   33: {2,5}
   36: {1,1,2,2}
   39: {2,6}
   51: {2,7}
   57: {2,8}
   69: {2,9}
   72: {1,1,1,2,2}
   87: {2,10}
   93: {2,11}
  105: {2,3,4}
  111: {2,12}
  123: {2,13}
  129: {2,14}
		

Crossrefs

Programs

  • Mathematica
    primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
    ptnmat[ptn_]:=PadRight[(ConstantArray[1,#]&)/@Sort[ptn,Greater],{Length[ptn],Max@@ptn}+1];
    corpos[mat_]:=ReplacePart[mat,Select[Position[mat,1],Times@@Extract[mat,{#+{1,0},#+{0,1}}]==0&]->0];
    Select[Range[100],Apply[Plus,If[#==1,{},FixedPointList[corpos,ptnmat[primeptn[#]]][[-3]]],{0,1}]==2&]

A325190 Number of integer partitions of n whose Young diagram has last part of its origin-to-boundary partition equal to 2.

Original entry on oeis.org

0, 0, 2, 0, 0, 2, 4, 2, 2, 4, 8, 10, 12, 10, 14, 20, 28, 36, 44, 46, 56, 66, 86, 108, 136, 160, 190, 214, 252, 298, 364, 434, 524, 620, 728, 834, 966, 1112, 1306, 1522, 1788, 2088, 2448, 2822, 3256, 3720, 4264, 4876, 5610, 6434, 7420
Offset: 0

Views

Author

Gus Wiseman, Apr 11 2019

Keywords

Comments

The Heinz numbers of these partitions are given by A325186.
The k-th part of the origin-to-boundary partition of a Young diagram is the number of squares graph-distance k from the lower-right boundary. For example, the partition (6,5,5,3) has diagram
o o o o o o
o o o o o
o o o o o
o o o
with origin-to-boundary graph-distances
4 4 4 3 2 1
3 3 3 2 1
2 2 2 1 1
1 1 1
giving the origin-to-boundary partition (7,5,4,3).

Examples

			The a(2) = 1 through a(11) = 10 partitions:
  (2)   (32)   (33)    (52)     (62)      (72)       (82)        (92)
  (11)  (221)  (42)    (22111)  (221111)  (432)      (433)       (443)
               (222)                      (3321)     (442)       (533)
               (2211)                     (2211111)  (532)       (542)
                                                     (3322)      (632)
                                                     (3331)      (3332)
                                                     (33211)     (33221)
                                                     (22111111)  (33311)
                                                                 (332111)
                                                                 (221111111)
		

Crossrefs

Programs

  • Mathematica
    ptnmat[ptn_]:=PadRight[(ConstantArray[1,#]&)/@Sort[ptn,Greater],{Length[ptn],Max@@ptn}+1];
    corpos[mat_]:=ReplacePart[mat,Select[Position[mat,1],Times@@Extract[mat,{#+{1,0},#+{0,1}}]==0&]->0];
    Table[Length[Select[IntegerPartitions[n],Apply[Plus,If[#=={},{},FixedPointList[corpos,ptnmat[#]][[-3]]],{0,1}]==2&]],{n,30}]
Showing 1-9 of 9 results.