A325196 -id:A325196 - cp's OEIS frontend

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.

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

Gus Wiseman, Apr 11 2019

			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)

Andrew Howroyd, Table of n, a(n) for n = 0..1325 (rows 0..50)
FindStat, St000380: Half the perimeter of the largest rectangle that fits inside the diagram of an integer partition
FindStat, St000384: The maximal part of the shifted composition of an integer partition
FindStat, St000783: The maximal number of occurrences of a colour in a proper colouring of a Ferrers diagram

Row sums are A000041. Column k = 1 is A325191. Column k = 2 is A325199.
T(n,k) = A325189(n,k) - A325188(n,k).
Cf. A046660, A065770, A071724, A243055, A325169, A325178, A325195, A325196, A325197, A366157, A368986.

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

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

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

Gus Wiseman, Apr 11 2019

nonn

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

			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.

Cf. A046660, A065770, A071724, A243055, A325166, A325169, A325178, A325183, A325188, A325189, A325191, A325196, A325197, A325199, A325200.

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

Gus Wiseman, Apr 11 2019

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

			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)

FindStat, St000380: Half the perimeter of the largest rectangle that fits inside the diagram of an integer partition
FindStat, St000384: The maximal part of the shifted composition of an integer partition
FindStat, St000783: The maximal number of occurrences of a colour in a proper colouring of a Ferrers diagram
Eric Weisstein's World of Mathematics, Graph Distance

Column k=1 of A325200.

Cf. A060687, A065770, A071724, A256617, A325166, A325169, A325178, A325179, A325181, A325187, A325188, A325189, A325195, A325196.

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

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

Positions of zeros are A000217 = n * (n + 1) / 2.

a(n) = A074909(n) - A010054(n). - Kevin Ryde, Sep 27 2019

A325197 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 2.

Original entry on oeis.org

5, 8, 14, 21, 24, 25, 27, 28, 35, 36, 40, 54, 56, 66, 98, 99, 110, 120, 125, 132, 135, 147, 154, 165, 168, 175, 180, 189, 196, 198, 200, 220, 225, 231, 245, 250, 252, 264, 270, 275, 280, 297, 300, 308, 375, 378, 385, 390, 392, 396, 440, 450, 500, 546, 585, 594

Offset: 1

Gus Wiseman, Apr 11 2019

nonn

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

			The sequence of terms together with their prime indices begins:
    5: {3}
    8: {1,1,1}
   14: {1,4}
   21: {2,4}
   24: {1,1,1,2}
   25: {3,3}
   27: {2,2,2}
   28: {1,1,4}
   35: {3,4}
   36: {1,1,2,2}
   40: {1,1,1,3}
   54: {1,2,2,2}
   56: {1,1,1,4}
   66: {1,2,5}
   98: {1,4,4}
   99: {2,2,5}
  110: {1,3,5}
  120: {1,1,1,2,3}
  125: {3,3,3}
  132: {1,1,2,5}

Cf. A195086, A065770, A325166, A325168, A325169, A325170, A325180, A325182, A325188, A325189, A325195, A325196, A325198, A325199, A325200.

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[#]]==2&]

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

Gus Wiseman, Apr 08 2019

nonn

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).

			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}

Gus Wiseman, Young diagrams for the first 32 terms.

Numbers k such that A263297(k) - A257990(k) = 1.
Positions of 1's in A325178.
Cf. A056239, A093641, A112798, A325180, A325181, A325192, A325196, A325198.

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

A307517 Numbers with at least two not necessarily distinct prime factors less than the largest prime factor.

Original entry on oeis.org

12, 20, 24, 28, 30, 36, 40, 42, 44, 45, 48, 52, 56, 60, 63, 66, 68, 70, 72, 76, 78, 80, 84, 88, 90, 92, 96, 99, 100, 102, 104, 105, 108, 110, 112, 114, 116, 117, 120, 124, 126, 130, 132, 135, 136, 138, 140, 144, 148, 150, 152, 153, 154, 156, 160, 164, 165, 168

Offset: 1

Gus Wiseman, Apr 12 2019

nonn

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 at least two not necessarily distinct parts less than the largest part. The enumeration of these partitions by sum is given by A000094.

			The sequence of terms together with their prime indices begins:
   12: {1,1,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   30: {1,2,3}
   36: {1,1,2,2}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
   52: {1,1,6}
   56: {1,1,1,4}
   60: {1,1,2,3}
   63: {2,2,4}
   66: {1,2,5}
   68: {1,1,7}
   70: {1,3,4}
   72: {1,1,1,2,2}
   76: {1,1,8}

Cf. A000094, A000245, A000961, A001222, A052126, A056239, A061395, A064989, A105441, A112798, A243055, A256617, A307516, A325196.

q:= n-> (l-> add(l[i][2], i=1..nops(l)-1)>1)(sort(ifactors(n)[2])):
select(q, [$1..200])[];  # Alois P. Heinz, Apr 12 2019

Select[Range[100],PrimeOmega[#/Power@@FactorInteger[#][[-1]]]>1&]

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

Gus Wiseman, Apr 08 2019

nonn

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).

			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}

Eric Weisstein's World of Mathematics, Graph Distance.
Gus Wiseman, Young diagrams for the first 25 terms.

Cf. A001222, A056239, A061395, A065770, A112798, A188674.

Cf. A325169, A325183, A325184, A325186, A325187, A325196.

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

A307516 Numbers whose maximum prime index and minimum prime index differ by more than 1.

Original entry on oeis.org

10, 14, 20, 21, 22, 26, 28, 30, 33, 34, 38, 39, 40, 42, 44, 46, 50, 51, 52, 55, 56, 57, 58, 60, 62, 63, 65, 66, 68, 69, 70, 74, 76, 78, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 98, 99, 100, 102, 104, 105, 106, 110, 111, 112, 114, 115, 116, 117, 118

Offset: 1

Gus Wiseman, Apr 12 2019

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. 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 whose maximum and minimum parts differ by more than 1. The enumeration of these partitions by sum is given by A000094.

Differs from A069900 first at n = 43.

			The sequence of terms together with their prime indices begins:
   10: {1,3}
   14: {1,4}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   26: {1,6}
   28: {1,1,4}
   30: {1,2,3}
   33: {2,5}
   34: {1,7}
   38: {1,8}
   39: {2,6}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   46: {1,9}
   50: {1,3,3}
   51: {2,7}
   52: {1,1,6}
   55: {3,5}

Positions of numbers > 1 in A243055. Complement of A000961 and A256617.

Cf. A000094, A000245, A001222, A052126, A056239, A061395, A064989, A069900, A105441, A112798, A307517, A325196.

with(numtheory):
q:= n-> (l-> pi(l[-1])-pi(l[1])>1)(sort([factorset(n)[]])):
select(q, [$2..200])[];  # Alois P. Heinz, Apr 12 2019

Select[Range[100],PrimePi[FactorInteger[#][[-1,1]]]-PrimePi[FactorInteger[#][[1,1]]]>1&]

cp's OEIS Frontend

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.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

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.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A325197 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 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A307517 Numbers with at least two not necessarily distinct prime factors less than the largest prime factor.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

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.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A307516 Numbers whose maximum prime index and minimum prime index differ by more than 1.

Views

Author

Keywords

Comments

Examples