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 41-50 of 50 results.

A366063 Irregular triangle read by rows: T(n,k) is the number of partitions of n that have depth k.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 2, 1, 3, 4, 0, 4, 6, 1, 5, 9, 1, 6, 11, 4, 1, 8, 20, 2, 0, 10, 25, 7, 0, 12, 37, 6, 1, 15, 47, 13, 2, 18, 67, 15, 1, 22, 85, 25, 3, 27, 122, 26, 1, 32, 142, 46, 10, 1, 38, 200, 53, 6, 0, 46, 259, 74, 6, 0, 54, 330, 92, 13, 1, 64, 412, 136
Offset: 1

Views

Author

Clark Kimberling, Sep 28 2023

Keywords

Comments

Suppose that P is a partition of n. Let x(1), x(2),...,x(k) be the distinct parts of P, and let m(i) be the multiplicity of x(i) in P. Let f(P) be the partition [m(1)*x(1), m(2)*x(2),...,x(k)*m(k)] of n. Define c(0,P) = P, c(1,P) = f(P), ..., c(n,P) = f(c(n-1,P)), and define d(P) = least n such that c(n,P) has no repeated parts; d(P) is as the depth of P, as defined in A237685. Clearly d(P) = 0 if and only if P is a strict partition, as in A000009. Conjecture: if d >= 0, then 2^d is the least n that has a partition of depth d.

Examples

			First 20 rows:
   1
   1      1
   2      1
   2      2     1
   3      4     0
   4      6     1
   5      9     1
   6     11     4    1
   8     20     2    0
  10     25     7    0
  12     37     6    1
  15     47    13    2
  18     67    15    1
  22     85    25    3
  27    122    26    1
  32    142    46   10    1
  38    200    53    6    0
  46    259    74    6    0
  54    330    92   13    1
  64    412   136   15    0
		

Crossrefs

Cf. A000009, A000041, A237685 (column 1), A237750 (column 2), A237978 (column 3), A225485 (frequency depth array).

Programs

  • Mathematica
    z = 36; c[n_] := c[n] = Map[Length[FixedPointList[Sort[Map[Total, Split[#]], Greater] &, #]] - 2 &, IntegerPartitions[n]]
    t = Table[Count[c[n], k], {n, 1, z}, {k, 0, Floor[Log[2, n]]}]
    TableForm[t] (* this sequence as an array *)
    Flatten[t]   (* this sequence *)

A325253 Number of integer partitions of n with adjusted frequency depth ceiling(sqrt(n)).

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 4, 4, 6, 8, 17, 26, 25, 44, 53, 63, 83, 128, 168, 212, 273, 344, 429, 525, 662, 796, 684, 910, 1211, 1595, 2060, 2663, 3406, 4315, 5426, 6784, 8417, 0, 0, 0, 0, 0, 1, 5, 14, 36, 76, 143, 269, 446, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 0

Views

Author

Gus Wiseman, Apr 22 2019

Keywords

Comments

The adjusted frequency depth of an integer partition is 0 if the partition is empty, and otherwise it is one 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).

Examples

			The a(2) = 1 through a(11) = 26 partitions:
    11  111  22    32  42    43   53    54      433        443
             1111  41  51    52   62    63      442        533
                       321   61   71    72      622        551
                       2211  421  431   81      811        722
                                  521   432     3331       911
                                  3311  531     4222       3332
                                        621     7111       5222
                                        222111  61111      8111
                                                222211     32222
                                                322111     33311
                                                331111     44111
                                                511111     71111
                                                2221111    222221
                                                4111111    322211
                                                22111111   332111
                                                31111111   422111
                                                211111111  611111
                                                           2222111
                                                           3221111
                                                           3311111
                                                           5111111
                                                           22211111
                                                           41111111
                                                           221111111
                                                           311111111
                                                           2111111111
		

Crossrefs

Programs

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

A325266 Numbers whose adjusted frequency depth equals their number of prime factors counted with multiplicity.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 9, 11, 13, 17, 19, 23, 24, 25, 29, 30, 31, 37, 40, 41, 42, 43, 47, 49, 53, 54, 56, 59, 61, 66, 67, 70, 71, 73, 78, 79, 83, 88, 89, 97, 101, 102, 103, 104, 105, 107, 109, 110, 113, 114, 120, 121, 127, 130, 131, 135, 136, 137, 138, 139, 149
Offset: 1

Views

Author

Gus Wiseman, Apr 17 2019

Keywords

Comments

The adjusted frequency depth of a positive integer n is 0 if n = 1, and otherwise it is 1 plus the number of times one must apply A181819 to reach a prime number, where A181819(n = p^i*...*q^j) = prime(i)*...*prime(j) = product of primes indexed by the prime exponents of n. For example, 180 has adjusted frequency depth 5 because we have: 180 -> 18 -> 6 -> 4 -> 3.
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 adjusted frequency depth is equal to their length. The enumeration of these partitions by sum is given by A325246.

Examples

			The sequence of terms together with their prime indices and their omega-sequences (see A323023) begins:
   2:       {1} (1)
   3:       {2} (1)
   4:     {1,1} (2,1)
   5:       {3} (1)
   7:       {4} (1)
   9:     {2,2} (2,1)
  11:       {5} (1)
  13:       {6} (1)
  17:       {7} (1)
  19:       {8} (1)
  23:       {9} (1)
  24: {1,1,1,2} (4,2,2,1)
  25:     {3,3} (2,1)
  29:      {10} (1)
  30:   {1,2,3} (3,3,1)
  31:      {11} (1)
  37:      {12} (1)
  40: {1,1,1,3} (4,2,2,1)
  41:      {13} (1)
  42:   {1,2,4} (3,3,1)
		

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

Programs

  • Mathematica
    fdadj[n_Integer]:=If[n==1,0,Length[NestWhileList[Times@@Prime/@Last/@FactorInteger[#]&,n,!PrimeQ[#]&]]];
    Select[Range[100],fdadj[#]==PrimeOmega[#]&]

A325267 Number of integer partitions of n with omicron 2.

Original entry on oeis.org

0, 0, 1, 1, 3, 5, 7, 12, 17, 24, 33, 44, 57, 76, 100, 129, 168, 214, 282, 355, 462, 586, 755, 937, 1202, 1493, 1900, 2349, 2944, 3621, 4520, 5514, 6813, 8298, 10150, 12240, 14918, 17931, 21654, 25917, 31081, 37029, 44256, 52474, 62405, 73724, 87378, 102887
Offset: 0

Views

Author

Gus Wiseman, Apr 18 2019

Keywords

Comments

The Heinz numbers of these partitions are given by A304634.
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. We define the omicron of an integer partition to be 0 if the partition is empty, 1 if it is a singleton, and otherwise the second-to-last part of its omega-sequence. 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), and its omicron is 2.

Examples

			The a(1) = 1 through a(8) = 17 partitions:
  (11)  (21)  (22)   (32)    (33)     (43)      (44)
              (31)   (41)    (42)     (52)      (53)
              (211)  (221)   (51)     (61)      (62)
                     (311)   (411)    (322)     (71)
                     (2111)  (2211)   (331)     (332)
                             (3111)   (511)     (422)
                             (21111)  (2221)    (611)
                                      (3211)    (3221)
                                      (4111)    (3311)
                                      (22111)   (4211)
                                      (31111)   (5111)
                                      (211111)  (22211)
                                                (32111)
                                                (41111)
                                                (221111)
                                                (311111)
                                                (2111111)
		

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), A325249 (sum).
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
    Table[Length[Select[IntegerPartitions[n],Switch[#,{},0,{},1,,NestWhile[Sort[Length/@Split[#]]&,#,Length[#]>1&]//First]==2&]],{n,0,30}]

A325271 Number of integer partitions of n with frequency depth round(sqrt(n)).

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 4, 6, 8, 11, 11, 19, 44, 53, 63, 83, 113, 124, 171, 190, 344, 429, 525, 662, 796, 981, 1182, 1442, 1709, 2096, 2663, 3406, 4315, 5426, 6784, 8417, 10466, 12824, 15721, 19104, 23267, 27981, 5, 14, 36, 76, 143, 269, 446, 738, 1143, 1754
Offset: 0

Views

Author

Gus Wiseman, Apr 23 2019

Keywords

Comments

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

Examples

			The a(2) = 1 through a(10) = 11 partitions:
  (2)  (111)  (22)    (11111)  (33)      (43)   (53)    (54)      (64)
              (1111)           (222)     (52)   (62)    (63)      (73)
                               (111111)  (61)   (71)    (72)      (82)
                                         (421)  (431)   (81)      (91)
                                                (521)   (432)     (532)
                                                (3311)  (531)     (541)
                                                        (621)     (631)
                                                        (222111)  (721)
                                                                  (3322)
                                                                  (4321)
                                                                  (4411)
		

Crossrefs

Programs

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

A325285 Number of integer partitions of n whose omega-sequence has repeated parts.

Original entry on oeis.org

0, 0, 0, 1, 2, 5, 6, 13, 17, 26, 36, 54, 66, 98, 125, 164, 214, 285, 354, 468, 585, 745, 945, 1195, 1477, 1864, 2317, 2867, 3544, 4383, 5348, 6589, 8028, 9778, 11885, 14403, 17362, 20992, 25212, 30239, 36158, 43242, 51408, 61240, 72568, 85989, 101607, 120027
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), which has repeated parts, so (32211) is counted under a(9).
The Heinz numbers of these partitions are given by A325411.

Examples

			The a(3) = 1 through a(8) = 17 partitions:
  (21)  (31)   (32)    (42)     (43)      (53)
        (211)  (41)    (51)     (52)      (62)
               (221)   (321)    (61)      (71)
               (311)   (411)    (322)     (332)
               (2111)  (3111)   (331)     (422)
                       (21111)  (421)     (431)
                                (511)     (521)
                                (2221)    (611)
                                (3211)    (3221)
                                (4111)    (4211)
                                (22111)   (5111)
                                (31111)   (22211)
                                (211111)  (32111)
                                          (41111)
                                          (221111)
                                          (311111)
                                          (2111111)
		

Crossrefs

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],!UnsameQ@@omseq[#]&]],{n,0,30}]

A225491 Maximal frequency depth for multisets over an alphabet of n letters.

Original entry on oeis.org

0, 4, 5, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8
Offset: 1

Views

Author

Clark Kimberling, May 09 2013

Keywords

Comments

Frequency depth is defined at A225485. Suppose S is a multiset on an alphabet y(1),..,y(n). Let f(n) > 0 be the frequency of y(i) in S, so that F(S) (as at A225485) is the multiset {f(1),..,f(m)}, where m is the number of distinct terms in S. Let {g(1),..,g(k)} be the set of distinct terms of F(S), and let h(i) be the number of occurrences of g(i) in F(S). Then F(F(S)) is a partition p(m) of m, and D(F(F(S))) = D(p(m)), where D denotes frequency depth. To maximize D for n>1, put m = n to get a(n) = 2 + A225486(n), for n > 1.

Examples

			For n = 2, let the alphabet be {u,v}.  Then for some p>=0 and q>=0, S consists of p u's and q v's, so that F(S) = {p,q}.  Assume without loss of generality that p<=q.  If 1 <= p < q, then the depth of 4 is the number of arrows when we write S -> pq -> 11 -> 2 -> 1.  The other possibilities (p = 0, or p=q) for p and q lead to depths < 4, so that a(2) = 4.
		

Crossrefs

Programs

  • Mathematica
    c[s_] := c[s] = Select[Table[Count[s, i], {i, 1, Max[s]}], # > 0 &]
    f[s_] := f[s] = Drop[FixedPointList[c, s], -2]
    t[s_] := t[s] = Length[f[s]]
    u[n_] := u[n] = Table[t[Part[IntegerPartitions[n], k]], {k, 1,
         Length[IntegerPartitions[n]]}];
    v = Table[Max[u[n]], {n, 2, 40}]; (* A225491 *)
    Prepend[2 + v, 0]

Formula

a(1) = 0, a(n) = 2 + A225486(n) for n > 1.

A325252 Number of integer partitions of n with frequency depth floor(sqrt(n)).

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 1, 3, 8, 11, 11, 19, 17, 25, 29, 83, 113, 124, 171, 190, 242, 289, 368, 399, 796, 981, 1182, 1442, 1709, 2096, 2469, 2990, 3545, 4276, 5037, 8417, 10466, 12824, 15721, 19104, 23267, 27981, 33856, 40515, 48508, 57826, 68982, 81493, 446, 738
Offset: 0

Views

Author

Gus Wiseman, Apr 22 2019

Keywords

Comments

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

Examples

			The a(2) = 1 through a(12) = 19 partitions (A = 10, B = 11):
  2  3  22    11111  33      1111111  44        54      64    65    75
        1111         222              2222      63      73    74    84
                     111111           11111111  72      82    83    93
                                                81      91    92    A2
                                                432     532   A1    B1
                                                531     541   542   543
                                                621     631   632   642
                                                222111  721   641   651
                                                        3322  731   732
                                                        4321  821   741
                                                        4411  5321  831
                                                                    921
                                                                    4422
                                                                    5421
                                                                    5511
                                                                    6321
                                                                    332211
                                                                    333111
                                                                    22221111
		

Crossrefs

Programs

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

A354233 Least number with n runs in ordered prime signature.

Original entry on oeis.org

1, 2, 12, 90, 2100, 48510, 3303300, 139369230, 18138420300, 1157182716690, 278261505822300, 30168910606824990, 9894144362523521100, 1693350783450479863710, 715178436956287675671300, 147157263134197051595990130, 83730945863531292204568790100
Offset: 0

Views

Author

Gus Wiseman, May 20 2022

Keywords

Comments

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

Examples

			The prime indices of 90 are {1,2,2,3}, with multiplicities {1,2,1}, with runs {{1},{2},{1}}, and this is the first case of 3 runs, so a(3) = 90.
		

Crossrefs

Positions of first appearances in A353745.
A001222 counts prime factors with multiplicity, distinct A001221.
A005361 gives product of signature, firsts A353500 (sorted A085629).
A056239 adds up prime indices, row sums of A112798 and A296150.
A124010 gives prime signature, sorted A118914.
A130091 lists numbers with distinct prime exponents, counted by A098859.
A181819 gives prime shadow, with an inverse A181821.
A182850 gives frequency depth of prime indices, counted by A225485.
A323014 gives adjusted frequency depth of prime indices, counted by A325280.

Programs

  • Mathematica
    Table[Product[Prime[i]^If[EvenQ[n-i],1,2],{i,n}],{n,0,15}]

A353741 Irregular triangle read by rows where T(n,k) is the number of integer partitions of n with product k, all zeros removed.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, May 20 2022

Keywords

Comments

Warning: There are certain internal "holes" in A339095 that are removed in this sequence.

Examples

			Triangle begins:
  1
  1
  1 1
  1 1 1
  1 1 1 2
  1 1 1 2 1 1
  1 1 1 2 1 2 2 1
  1 1 1 2 1 2 1 2 1 1 2
  1 1 1 2 1 2 1 3 1 1 3 1 3 1
  1 1 1 2 1 2 1 3 2 1 3 1 1 3 2 2 2 1
  1 1 1 2 1 2 1 3 2 2 3 1 1 4 2 2 1 4 1 1 1 3 2
Row n = 7 counts the following partitions:
  1111111   211111   31111   4111    511   61     7   421    331   52   43
                             22111         3211       2221              322
		

Crossrefs

Row sums are A000041.
Row lengths are A034891.
A partial transpose is A319000.
The full version with zeros is A339095, rank statistic A003963.
A008284 counts partitions by sum, strict A116608.
A225485 counts partitions by frequency depth.
A266477 counts partitions by product of multiplicities, ranked by A005361.

Programs

  • Mathematica
    DeleteCases[Table[Length[Select[IntegerPartitions[n],Times@@#==k&]],{n,0,10},{k,1,2^n}],0,2]
Previous Showing 41-50 of 50 results.