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

A353506 Number of integer partitions of n whose parts have the same product as their multiplicities.

Original entry on oeis.org

1, 1, 0, 0, 1, 0, 2, 0, 1, 0, 1, 1, 2, 1, 2, 0, 3, 3, 2, 3, 2, 0, 2, 3, 2, 1, 3, 1, 6, 3, 2, 3, 3, 2, 3, 4, 1, 2, 3, 6, 3, 2, 2, 3, 3, 1, 2, 6, 6, 4, 7, 2, 3, 6, 4, 3, 3, 0, 4, 5, 3, 5, 5, 6, 5, 3, 3, 3, 6, 5, 5, 6, 6, 3, 3, 3, 4, 4, 4, 6, 7, 2, 5, 7, 6, 2, 3, 4, 6, 11, 9, 4, 4, 1, 5, 6, 4, 7, 9, 6, 4
Offset: 0

Views

Author

Gus Wiseman, May 17 2022

Keywords

Examples

			The a(0) = 1 through a(18) = 2 partitions:
  n= 0: ()
  n= 1: (1)
  n= 2:
  n= 3:
  n= 4: (211)
  n= 5:
  n= 6: (3111) (2211)
  n= 7:
  n= 8: (41111)
  n= 9:
  n=10: (511111)
  n=11: (32111111)
  n=12: (6111111) (22221111)
  n=13: (322111111)
  n=14: (71111111) (4211111111)
  n=15:
  n=16: (811111111) (4411111111) (42211111111)
  n=17: (521111111111) (332111111111) (322211111111)
  n=18: (9111111111) (333111111111)
For example, the partition y = (322111111) has multiplicities (1,2,6) with product 12, and the product of parts is also 3*2*2*1*1*1*1*1*1 = 12, so y is counted under a(13).

Crossrefs

LHS (product of parts) is ranked by A003963, counted by A339095.
RHS (product of multiplicities) is ranked by A005361, counted by A266477.
For shadows instead of prime exponents we have A008619, ranked by A003586.
Taking sum instead of product of parts gives A266499.
For shadows instead of prime indices we have A353398, ranked by A353399.
These partitions are ranked by A353503.
Taking sum instead of product of multiplicities gives A353698.
A008284 counts partitions by length.
A098859 counts partitions with distinct multiplicities, ranked by A130091.
A353507 gives product of multiplicities (of exponents) in prime signature.
Cf. A085629, A114640, A116608, A118914, A124010, A319000, A325702, A353394, A353500.
Cf. A000792, A266480.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], Times@@#==Times@@Length/@Split[#]&]],{n,0,30}]
  • PARI
    a(n) = {my(nb=0); forpart(p=n, my(s=Set(p), v=Vec(p)); if (vecprod(vector(#s, i, #select(x->(x==s[i]), v))) == vecprod(v), nb++);); nb;} \\ Michel Marcus, May 20 2022

Extensions

a(71)-a(100) from Alois P. Heinz, May 20 2022

A353699 Heinz numbers of integer partitions whose product equals their length.

Original entry on oeis.org

2, 6, 20, 36, 56, 176, 240, 416, 864, 1088, 1344, 2432, 3200, 5888, 8448, 14848, 23040, 31744, 35840, 39936, 75776, 167936, 208896, 331776, 352256, 450560, 516096, 770048, 802816, 933888, 1736704, 2457600, 3866624, 4259840, 4521984, 7995392, 12976128, 17563648
Offset: 1

Views

Author

Gus Wiseman, May 19 2022

Keywords

Comments

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

Examples

			The terms together with their prime indices begin:
      2: {1}
      6: {1,2}
     20: {1,1,3}
     36: {1,1,2,2}
     56: {1,1,1,4}
    176: {1,1,1,1,5}
    240: {1,1,1,1,2,3}
    416: {1,1,1,1,1,6}
    864: {1,1,1,1,1,2,2,2}
   1088: {1,1,1,1,1,1,7}
   1344: {1,1,1,1,1,1,2,4}
   2432: {1,1,1,1,1,1,1,8}
   3200: {1,1,1,1,1,1,1,3,3}
   5888: {1,1,1,1,1,1,1,1,9}
   8448: {1,1,1,1,1,1,1,1,2,5}
  14848: {1,1,1,1,1,1,1,1,1,10}
  23040: {1,1,1,1,1,1,1,1,1,2,2,3}
  31744: {1,1,1,1,1,1,1,1,1,1,11}
  35840: {1,1,1,1,1,1,1,1,1,1,3,4}
  39936: {1,1,1,1,1,1,1,1,1,1,2,6}
  75776: {1,1,1,1,1,1,1,1,1,1,1,12}

Crossrefs

Length is A001222, counted by A008284, distinct A001221.
Product is A003963, counted by A339095, firsts A318871.
A similar sequence is A353503, counted by A353506.
These partitions are counted by A353698.
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.
A181819 gives prime shadow, with an inverse A181821.
A353394 gives product of shadows of prime indices, firsts A353397.
Cf. A000720, A003586, A114640, A182850, A320325, A325131, A325755, A353399, A353507.

Programs

  • Mathematica
    Select[Range[1000],Times@@Cases[If[#==1,{},FactorInteger[#]],{p_,k_}:>PrimePi[p]^k]==PrimeOmega[#]&]

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.
Cf. A002033, A266499, A325242, A325268, A325280, A353503, A353506, A353698.

Programs

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

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

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