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

A381542 Numbers > 1 whose greatest prime index equals their greatest prime multiplicity.

Original entry on oeis.org

2, 9, 12, 18, 36, 40, 112, 120, 125, 135, 200, 250, 270, 336, 352, 360, 375, 500, 540, 560, 567, 600, 675, 750, 784, 832, 1000, 1008, 1056, 1080, 1125, 1134, 1350, 1500, 1680, 1760, 1800, 2176, 2250, 2268, 2352, 2401, 2464, 2496, 2673, 2700, 2800, 2835, 3000
Offset: 1

Views

Author

Gus Wiseman, Mar 24 2025

Keywords

Comments

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, sum A056239.

Examples

			The terms together with their prime indices begin:
     2: {1}
     9: {2,2}
    12: {1,1,2}
    18: {1,2,2}
    36: {1,1,2,2}
    40: {1,1,1,3}
   112: {1,1,1,1,4}
   120: {1,1,1,2,3}
   125: {3,3,3}
   135: {2,2,2,3}
   200: {1,1,1,3,3}
   250: {1,3,3,3}
   270: {1,2,2,2,3}
   336: {1,1,1,1,2,4}
   352: {1,1,1,1,1,5}
   360: {1,1,1,2,2,3}

Crossrefs

Counting partitions by the LHS gives A008284, rank statistic A061395.
Counting partitions by the RHS gives A091602, rank statistic A051903.
For length instead of maximum we have A106529, counted by A047993 (balanced partitions).
For number of distinct factors instead of max index we have A212166, counted by A239964.
Partitions of this type are counted by A240312.
Including number of distinct parts gives A381543, counted by A382302.
A000005 counts divisors.
A000040 lists the primes, differences A001223.
A001222 counts prime factors, distinct A001221.
A051903 gives greatest prime exponent, least A051904.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents partition conjugation in terms of Heinz numbers.
A381544 counts partitions without more ones than any other part, ranks A381439.
Cf. A000720, A047966, A048767, A130091, A317090, A381632.

Programs

  • Mathematica
    Select[Range[2,1000],PrimePi[FactorInteger[#][[-1,1]]]==Max@@FactorInteger[#][[All,2]]&]

Formula

A061395(a(n)) = A051903(a(n)).

A382302 Number of integer partitions of n with greatest part, greatest multiplicity, and number of distinct parts all equal.

Original entry on oeis.org

0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 2, 2, 2, 4, 3, 3, 4, 4, 3, 6, 5, 8, 8, 13, 13, 16, 17, 21, 22, 25, 26, 32, 34, 37, 44, 47, 55, 62, 72, 78, 94, 103, 118, 132, 151, 163, 189, 205, 230, 251, 284, 307, 346, 377, 420, 462, 515, 562, 629, 690, 763
Offset: 0

Views

Author

Gus Wiseman, Mar 24 2025

Keywords

Examples

			The a(n) partitions for n = 1, 2, 10, 13, 14, 19, 20, 21:
  1  .  32221   332221   333221   4333321     43333211    43333221
        322111  333211   3322211  43322221    44322221    433332111
                3322111  3332111  433321111   433222211   443222211
                4321111           443221111   443321111   444321111
                                  543211111   4332221111  4332222111
                                  4322221111              4333221111
                                                          4432221111
                                                          5432211111

Links

Crossrefs

Without the middle statistic we have A000009, ranked by A055932.
Counting partitions by the LHS gives A008284 (strict A008289), rank statistic A061395.
Counting partitions by the middle statistic gives A091602, rank statistic A051903.
Counting partitions by the RHS gives A116608/A365676, rank statistic A001221.
Without the LHS we have A239964, ranked by A212166.
Without the RHS we have A240312, ranked by A381542.
The Heinz numbers of these partitions are listed by A381543.
A000041 counts integer partitions.
A047993 counts partitions with max part = length, ranks A106529.
A116598 counts ones in partitions, rank statistic A007814.
A381438 counts partitions by last part part of section-sum partition.
Cf. A047966, A130091, A237984, A239455, A241131, A351293, A362608, A363719, A381079, A381544, A382303.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Max@@#==Max@@Length/@Split[#]==Length[Union[#]]&]],{n,0,30}]
  • PARI
    A_x(N) = {if(N<1,[0],my(x='x+O('x^(N+1))); concat([0],Vec(sum(i=1,N, prod(j=1,i, (x^j-x^((i+1)*j))/(1-x^j)) - prod(j=1,i, (x^j-x^(i*j))/(1-x^j))))))}
A_x(60) \\ John Tyler Rascoe, Mar 25 2025

Formula

G.f.: Sum_{i>0} (B(i+1,i,x) - B(i,i,x)) where B(a,c,x) = Product_{j=1..c} (x^j - x^(a*j))/(1 - x^j). - John Tyler Rascoe, Mar 25 2025

A381543 Numbers > 1 whose greatest prime index (A061395), number of distinct prime factors (A001221), and greatest prime multiplicity (A051903) are all equal.

Original entry on oeis.org

2, 12, 18, 36, 120, 270, 360, 540, 600, 750, 1080, 1350, 1500, 1680, 1800, 2250, 2700, 3000, 4500, 5040, 5400, 5670, 6750, 8400, 9000, 11340, 11760, 13500, 15120, 22680, 25200, 26250, 27000, 28350, 35280, 36960, 39690, 42000, 45360, 52500, 56700, 58800, 72030
Offset: 1

Views

Author

Gus Wiseman, Mar 24 2025

Keywords

Comments

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, sum A056239.

Examples

			The terms together with their prime indices begin:
      2: {1}
     12: {1,1,2}
     18: {1,2,2}
     36: {1,1,2,2}
    120: {1,1,1,2,3}
    270: {1,2,2,2,3}
    360: {1,1,1,2,2,3}
    540: {1,1,2,2,2,3}
    600: {1,1,1,2,3,3}
    750: {1,2,3,3,3}
   1080: {1,1,1,2,2,2,3}
   1350: {1,2,2,2,3,3}
   1500: {1,1,2,3,3,3}
   1680: {1,1,1,1,2,3,4}
   1800: {1,1,1,2,2,3,3}

Crossrefs

Counting partitions by the LHS gives A008284, rank statistic A061395.
Without the RHS we have A055932, counted by A000009.
Counting partitions by the RHS gives A091602, rank statistic A051903.
Counting partitions by the middle statistic gives A116608/A365676, rank stat A001221.
Without the LHS we have A212166, counted by A239964.
Without the middle statistic we have A381542, counted by A240312.
Partitions of this type are counted by A382302.
A000040 lists the primes, differences A001223.
A001222 counts prime factors, distinct A001221.
A047993 counts balanced partitions, ranks A106529.
A051903 gives greatest prime exponent, least A051904.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents partition conjugation in terms of Heinz numbers.
Cf. A000720, A048767, A062457, A066328, A130091, A317090, A363719, A363740, A380955, A381632.

Programs

  • Mathematica
    Select[Range[2,1000],PrimePi[FactorInteger[#][[-1,1]]]==PrimeNu[#]==Max@@FactorInteger[#][[All,2]]&]

Formula

A061395(a(n)) = A001221(a(n)) = A051903(a(n)).

A240310 Number of partitions p of n such that (maximal multiplicity of the parts of p) < (maximal part of p).

Original entry on oeis.org

0, 0, 1, 2, 2, 4, 6, 10, 14, 19, 27, 37, 50, 69, 92, 123, 161, 213, 273, 355, 453, 580, 734, 931, 1168, 1468, 1830, 2279, 2821, 3490, 4292, 5275, 6450, 7878, 9584, 11645, 14091, 17039, 20529, 24703, 29640, 35520, 42447, 50669, 60329, 71743, 85131, 100892
Offset: 0

Views

Author

Clark Kimberling, Apr 05 2014

Keywords

Examples

			a(6) counts these 6 partitions:  6, 51, 42, 411, 33, 321.

Crossrefs

Cf. A240311, A240312, A240313, A240314, A000041.

Programs

  • Mathematica
    z = 60; f[n_] := f[n] = IntegerPartitions[n]; m[p_] := Max[Map[Length, Split[p]]]  (* maximal multiplicity *)
Table[Count[f[n], p_ /; m[p] < Max[p]], {n, 0, z}]  (* A240310 *)
Table[Count[f[n], p_ /; m[p] <= Max[p]], {n, 0, z}] (* A240311 *)
Table[Count[f[n], p_ /; m[p] == Max[p]], {n, 0, z}] (* A240312 *)
Table[Count[f[n], p_ /; m[p] >= Max[p]], {n, 0, z}] (* A240313 *)
Table[Count[f[n], p_ /; m[p] > Max[p]], {n, 0, z}]  (* A240314*)

Formula

a(n) = A240311(n) - A240312(n) for n >= 0.
a(n) + A240312(n) + A240314(n) = A000041(n) for n >= 0.

A240311 Number of partitions p of n such that (maximal multiplicity of the parts of p) <= (maximal part of p).

Original entry on oeis.org

1, 1, 1, 2, 4, 5, 8, 10, 16, 22, 32, 42, 59, 76, 103, 134, 179, 228, 301, 382, 494, 623, 796, 995, 1259, 1564, 1957, 2419, 3005, 3690, 4552, 5562, 6815, 8288, 10095, 12218, 14808, 17842, 21514, 25823, 30999, 37058, 44306, 52775, 62851, 74613, 88538, 104764
Offset: 0

Views

Author

Clark Kimberling, Apr 05 2014

Keywords

Examples

			a(6) counts these 8 partitions:  6, 51, 42, 411, 33, 3111, 321, 2211.

Crossrefs

Cf. A240310, A240312, A240313, A240314, A000041, A118052.

Programs

  • Mathematica
    z = 60; f[n_] := f[n] = IntegerPartitions[n]; m[p_] := Max[Map[Length, Split[p]]]  (* maximal multiplicity *)
Table[Count[f[n], p_ /; m[p] < Max[p]], {n, 0, z}]  (* A240310 *)
Table[Count[f[n], p_ /; m[p] <= Max[p]], {n, 0, z}] (* A240311 *)
Table[Count[f[n], p_ /; m[p] == Max[p]], {n, 0, z}] (* A240312 *)
Table[Count[f[n], p_ /; m[p] >= Max[p]], {n, 0, z}] (* A240313 *)
Table[Count[f[n], p_ /; m[p] > Max[p]], {n, 0, z}]  (* A240314 *)

Formula

a(n) = A240310(n) + A240312(n) for n >= 0.
a(n) + A240314(n) = A000041(n) for n >= 0.

A240313 Number of partitions p of n such that (maximal multiplicity of the parts of p) >= (maximal part of p).

Original entry on oeis.org

1, 1, 1, 1, 3, 3, 5, 5, 8, 11, 15, 19, 27, 32, 43, 53, 70, 84, 112, 135, 174, 212, 268, 324, 407, 490, 606, 731, 897, 1075, 1312, 1567, 1899, 2265, 2726, 3238, 3886, 4598, 5486, 6482, 7698, 9063, 10727, 12592, 14846, 17391, 20427, 23862, 27952, 32568, 38033
Offset: 0

Views

Author

Clark Kimberling, Apr 05 2014

Keywords

Examples

			a(6) counts these 5 partitions:  3111, 222, 2211, 21111, 111111.

Crossrefs

Cf. A240310, A240311, A240312, A240314, A000041, A118053.

Programs

  • Mathematica
    z = 60; f[n_] := f[n] = IntegerPartitions[n]; m[p_] := Max[Map[Length, Split[p]]]  (* maximal multiplicity *)
Table[Count[f[n], p_ /; m[p] < Max[p]], {n, 0, z}]  (* A240310 *)
Table[Count[f[n], p_ /; m[p] <= Max[p]], {n, 0, z}] (* A240311 *)
Table[Count[f[n], p_ /; m[p] == Max[p]], {n, 0, z}] (* A240312 *)
Table[Count[f[n], p_ /; m[p] >= Max[p]], {n, 0, z}] (* A240313 *)
Table[Count[f[n], p_ /; m[p] > Max[p]], {n, 0, z}]  (* A240314 *)

Formula

a(n) = A240312(n) + A240314(n) for n >= 0.
a(n) + A240310(n) = A000041(n) for n >= 0.

A240314 Number of partitions p of n such that (maximal multiplicity of the parts of p) > (maximal part of p).

Original entry on oeis.org

0, 0, 1, 1, 1, 2, 3, 5, 6, 8, 10, 14, 18, 25, 32, 42, 52, 69, 84, 108, 133, 169, 206, 260, 316, 394, 479, 591, 713, 875, 1052, 1280, 1534, 1855, 2215, 2665, 3169, 3795, 4501, 5362, 6339, 7525, 8868, 10486, 12324, 14521, 17020, 19990, 23366, 27361, 31905
Offset: 0

Views

Author

Clark Kimberling, Apr 05 2014

Keywords

Examples

			a(6) counts these 3 partitions:  222, 2111, 111111.

Crossrefs

Cf. A240310, A240311, A240312, A240313, A000041.

Programs

  • Mathematica
    z = 60; f[n_] := f[n] = IntegerPartitions[n]; m[p_] := Max[Map[Length, Split[p]]]  (* maximal multiplicity *)
Table[Count[f[n], p_ /; m[p] < Max[p]], {n, 0, z}]  (* A240310 *)
Table[Count[f[n], p_ /; m[p] <= Max[p]], {n, 0, z}] (* A240311 *)
Table[Count[f[n], p_ /; m[p] == Max[p]], {n, 0, z}] (* A240312 *)
Table[Count[f[n], p_ /; m[p] >= Max[p]], {n, 0, z}] (* A240313 *)
Table[Count[f[n], p_ /; m[p] > Max[p]], {n, 0, z}]  (* A240314 *)

Formula

a(n) = A240313(n) - A240312(n) for n >= 0.
a(n) + A240310(n) + A240312(n) = A000041(n) for n >= 0.

A381079 Number of integer partitions of n whose greatest multiplicity is equal to their sum of distinct parts.

Original entry on oeis.org

0, 1, 0, 0, 1, 1, 0, 3, 1, 3, 1, 2, 0, 7, 2, 6, 7, 11, 3, 19, 8, 22, 16, 32, 17, 48, 21, 50, 39, 71, 35, 101, 58, 120, 89, 156, 97, 228, 133, 267, 203, 352, 228, 483, 322, 571, 444, 734, 524, 989, 683, 1160, 942, 1490, 1103, 1919, 1438, 2302, 1890, 2881, 2243, 3683, 2842, 4384, 3703, 5461
Offset: 0

Views

Author

Gus Wiseman, Mar 03 2025

Keywords

Comments

Are there only 4 zeros?

Examples

			The partition (3,2,2,1,1,1,1,1,1) has greatest multiplicity 6 and distinct parts (3,2,1) with sum 6, so is counted under a(13).
The a(1) = 1 through a(13) = 7 partitions:
  1  .  .  22  2111  .  2221   22211  333     331111  5111111   .  33331
                        22111         222111          32111111     322222
                        31111         411111                       3331111
                                                                   4411111
                                                                   61111111
                                                                   322111111
                                                                   421111111

Crossrefs

For greatest part instead of multiplicity we have A000005.
Counting partitions by the LHS gives A091602, rank statistic A051903.
Counting partitions by the RHS gives A116861, rank statistic A066328.
These partitions are ranked by A381632, for part instead of multiplicity A246655.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A047993 counts balanced partitions, ranks A106529.
A091605 counts partitions with greatest multiplicity 2.
A240312 counts partitions with max part = max multiplicity, ranks A381542.
Cf. A027193, A047966, A048767, A051904, A212166, A237984, A239455, A241131, A362608, A363724.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Max@@Length/@Split[#]==Total[Union[#]]&]],{n,0,30}]

A381544 Number of integer partitions of n not containing more ones than any other part.

Original entry on oeis.org

0, 0, 1, 2, 3, 4, 7, 8, 13, 17, 24, 30, 45, 54, 75, 97, 127, 160, 212, 263, 342, 427, 541, 672, 851, 1046, 1307, 1607, 1989, 2428, 2993, 3631, 4443, 5378, 6533, 7873, 9527, 11424, 13752, 16447, 19701, 23470, 28016, 33253, 39537, 46801, 55428, 65408, 77238
Offset: 0

Views

Author

Gus Wiseman, Mar 24 2025

Keywords

Examples

			The a(2) = 1 through a(9) = 17 partitions:
  (2)  (3)   (4)   (5)    (6)     (7)     (8)      (9)
       (21)  (22)  (32)   (33)    (43)    (44)     (54)
             (31)  (41)   (42)    (52)    (53)     (63)
                   (221)  (51)    (61)    (62)     (72)
                          (222)   (322)   (71)     (81)
                          (321)   (331)   (332)    (333)
                          (2211)  (421)   (422)    (432)
                                  (2221)  (431)    (441)
                                          (521)    (522)
                                          (2222)   (531)
                                          (3221)   (621)
                                          (3311)   (3222)
                                          (22211)  (3321)
                                                   (4221)
                                                   (22221)
                                                   (32211)
                                                   (222111)

Crossrefs

The complement is counted by A241131, ranks A360013 = 2*A360015 (if we prepend 1).
The Heinz numbers of these partitions are A381439.
The case of equality is A382303, ranks A360014.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A047993 counts partitions with max part = length, ranks A106529.
A091602 counts partitions by the greatest multiplicity, rank statistic A051903.
A116598 counts ones in partitions, rank statistic A007814.
A239964 counts partitions with max multiplicity = length, ranks A212166.
A240312 counts partitions with max part = max multiplicity, ranks A381542.
A382302 counts partitions with max = max multiplicity = distinct length, ranks A381543.
Cf. A047966, A091605, A116861, A232697, A237984, A362608, A363724, A381079, A381437, A381438.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Count[#,1]<=Max@@Length/@Split[DeleteCases[#,1]]&]],{n,0,30}]

A381632 Numbers such that (greatest prime exponent) = (sum of distinct prime indices).

Original entry on oeis.org

2, 9, 24, 54, 72, 80, 108, 125, 216, 224, 400, 704, 960, 1215, 1250, 1568, 1664, 2000, 2401, 2500, 2688, 2880, 4352, 4800, 5000, 5103, 6075, 7290, 7744, 8064, 8448, 8640, 8960, 9375, 9728, 10000, 10976, 14400, 14580, 18816, 19968, 21632, 23552, 24000, 24057
Offset: 1

Views

Author

Gus Wiseman, Mar 24 2025

Keywords

Comments

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, sum A056239.

Examples

			The terms together with their prime indices begin:
      2: {1}
      9: {2,2}
     24: {1,1,1,2}
     54: {1,2,2,2}
     72: {1,1,1,2,2}
     80: {1,1,1,1,3}
    108: {1,1,2,2,2}
    125: {3,3,3}
    216: {1,1,1,2,2,2}
    224: {1,1,1,1,1,4}
    400: {1,1,1,1,3,3}
    704: {1,1,1,1,1,1,5}
    960: {1,1,1,1,1,1,2,3}

Crossrefs

For (length) instead of (sum of distinct) we have A000961.
Including number of parts gives A062457 (degenerate).
Counting partitions by the LHS gives A091602, rank statistic A051903.
Counting partitions by the RHS gives A116861, rank statistic A066328.
Partitions of this type are counted by A381079.
A001222 counts prime factors, distinct A001221.
A047993 counts partitions with max part = length, ranks A106529.
A051903 gives greatest prime exponent, least A051904.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A239455 counts Look-and-Say partitions, complement A351293.
A239964 counts partitions with max multiplicity = length, ranks A212166.
A240312 counts partitions with max = max multiplicity, ranks A381542.
A382302 counts partitions with max = max multiplicity = distinct length, ranks A381543.
Cf. A000720, A048767, A130091, A246655, A317090, A380955, A381437, A381439.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Max@@Last/@FactorInteger[#]==Total[Union[prix[#]]]&]

Formula

A051903(a(n)) = A066328(a(n)).
Showing 1-10 of 14 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.