A066815 -id:A066815 - cp's OEIS frontend

A319841 Number of distinct positive integers that can be obtained by iteratively adding or multiplying together parts of the integer partition with Heinz number n until only one part remains.

0, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 2, 4, 1, 3, 1, 4, 2, 2, 1, 5, 2, 2, 2, 4, 1, 5, 1, 6, 2, 2, 2, 6, 1, 2, 2, 7, 1, 6, 1, 4, 4, 2, 1, 8, 2, 5, 2, 4, 1, 6, 2, 8, 2, 2, 1, 7, 1, 2, 4, 9, 2, 6, 1, 4, 2, 6, 1, 8, 1, 2, 6, 4, 2, 6, 1, 9, 4, 2, 1, 10, 2, 2, 2

Offset: 1

Gus Wiseman, Sep 29 2018

nonn

			60 is the Heinz number of (3,2,1,1) and
   5 = (3+2)*1*1
   6 = 3*2*1*1
   7 = 3+2+1+1
   8 = (3+1)*2*1
   9 = 3*(2+1)*1
  10 = (3+2)*(1+1)
  12 = (3+1)*(2+1)
so we have a(60) = 7. It is not possible to obtain 11 by adding or multiplying together the parts of (3,2,1,1).

Cf. A001055, A001970, A048249, A056239, A063834, A066739, A066815, A281113, A318948, A318949, A319855, A319856.

ReplaceListRepeated[forms_,rerules_]:=Union[Flatten[FixedPointList[Function[pre,Union[Flatten[ReplaceList[#,rerules]&/@pre,1]]],forms],1]];
Table[Length[Select[ReplaceListRepeated[{If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]},{{foe___,x_,mie___,y_,afe___}:>Sort[Append[{foe,mie,afe},x+y]],{foe___,x_,mie___,y_,afe___}:>Sort[Append[{foe,mie,afe},x*y]]}],Length[#]==1&]],{n,100}]

a(2^n) = A048249(n).

A319911 Number of distinct pairs (m, y), where m >= 1 and y is an integer partition of n with no 1's, such that m can be obtained by iteratively adding or multiplying together parts of y until only one part (equal to m) remains.

Original entry on oeis.org

0, 1, 1, 2, 3, 7, 9, 21, 31, 65, 102, 194, 321, 575, 956, 1652, 2684, 4576, 7367, 12035, 19490, 31185, 49418, 78595, 123393

Offset: 1

Gus Wiseman, Oct 01 2018

			The a(6) = 7 pairs:
  6 <= (6)
  6 <= (4,2)
  8 <= (4,2)
  6 <= (3,3)
  9 <= (3,3)
  6 <= (2,2,2)
  8 <= (2,2,2)
The a(7) = 9 pairs:
   7 <= (7)
   7 <= (5,2)
  10 <= (5,2)
   7 <= (4,3)
  12 <= (4,3)
   7 <= (3,2,2)
   8 <= (3,2,2)
  10 <= (3,2,2)
  12 <= (3,2,2)

Cf. A000792, A001970, A005520, A048249, A066739, A066815, A275870, A319850, A318949, A319909, A319910, A319912, A319913.

ReplaceListRepeated[forms_,rerules_]:=Union[Flatten[FixedPointList[Function[pre,Union[Flatten[ReplaceList[#,rerules]&/@pre,1]]],forms],1]];
nexos[ptn_]:=If[Length[ptn]==0,{0},Union@@Select[ReplaceListRepeated[{Sort[ptn]},{{foe___,x_,mie___,y_,afe___}:>Sort[Append[{foe,mie,afe},x+y]],{foe___,x_,mie___,y_,afe___}:>Sort[Append[{foe,mie,afe},x*y]]}],Length[#]==1&]];
Table[Total[Length/@nexos/@Select[IntegerPartitions[n],FreeQ[#,1]&]],{n,30}]

A321594 Expansion of Product_{k>0} (1 - A001055(k)*x^k).

Original entry on oeis.org

1, -1, -1, 0, -1, 2, 0, 2, -2, 1, 4, -1, -4, 0, 4, -8, -3, 0, 0, -2, 17, -8, -2, -11, 4, 7, 0, 22, 26, -30, -32, 30, -18, 57, -58, 28, -12, -28, -41, 97, -11, -36, 8, -95, -5, -69, -29, 104, 76, 14, 209, -145, 29, 46, 371, -437, 0, -336, 116, -94, -388, 952, 449, -665

Offset: 0

Seiichi Manyama, Nov 14 2018

sign

This sequence is obtained from the generalized Euler transform in A266964 by taking f(n) = -1, g(n) = A001055(n).

Seiichi Manyama, Table of n, a(n) for n = 0..10000

Convolution inverse of A066815.

Cf. A001055, A066816, A321460.

A357858 Number of integer partitions that can be obtained by iteratively adding and multiplying together parts of the integer partition with Heinz number n.

Original entry on oeis.org

1, 1, 1, 3, 1, 3, 1, 6, 2, 3, 1, 7, 1, 3, 3, 11, 1, 7, 1, 8, 3, 3, 1, 14, 3, 3, 4, 8, 1, 11, 1, 19, 3, 3, 3, 18, 1, 3, 3, 18, 1, 12, 1, 8, 8, 3, 1, 27, 3, 10, 3, 8, 1, 16, 3, 19, 3, 3, 1, 25, 1, 3, 8, 33, 3, 12, 1, 8, 3, 12, 1, 35, 1, 3, 11, 8, 3, 12, 1, 34, 9

Offset: 1

Gus Wiseman, Oct 17 2022

nonn

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.

			The a(n) partitions for n = 1, 4, 8, 9, 12, 16, 20, 24:
  ()  (1)   (1)    (4)   (2)    (1)     (3)    (2)
      (2)   (2)    (22)  (3)    (2)     (4)    (3)
      (11)  (3)          (4)    (3)     (5)    (4)
            (11)         (21)   (4)     (6)    (5)
            (21)         (22)   (11)    (31)   (6)
            (111)        (31)   (21)    (32)   (21)
                         (211)  (22)    (41)   (22)
                                (31)    (311)  (31)
                                (111)          (32)
                                (211)          (41)
                                (1111)         (211)
                                               (221)
                                               (311)
                                               (2111)

The single-part partitions are counted by A319841, with an inverse A319913.
The minimum is A319855, maximum A319856.
A000041 counts integer partitions.
A001222 counts prime indices, distinct A001221.
A056239 adds up prime indices.
A066739 counts representations as a sum of products.
Cf. A000792, A001055, A001970, A005520, A048249, A063834, A066815, A318948, A319850, A319909, A319910.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
ReplaceListRepeated[forms_,rerules_]:=Union[Flatten[FixedPointList[Function[pre,Union[Flatten[ReplaceList[#,rerules]&/@pre,1]]],forms],1]];
Table[Length[ReplaceListRepeated[{primeMS[n]},{{foe___,x_,mie___,y_,afe___}:>Sort[Append[{foe,mie,afe},x+y]],{foe___,x_,mie___,y_,afe___}:>Sort[Append[{foe,mie,afe},x*y]]}]],{n,100}]

cp's OEIS Frontend

A319841 Number of distinct positive integers that can be obtained by iteratively adding or multiplying together parts of the integer partition with Heinz number n until only one part remains.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A319911 Number of distinct pairs (m, y), where m >= 1 and y is an integer partition of n with no 1's, such that m can be obtained by iteratively adding or multiplying together parts of y until only one part (equal to m) remains.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A321594 Expansion of Product_{k>0} (1 - A001055(k)*x^k).

Views

Author

Keywords

Comments

Links

Crossrefs

A357858 Number of integer partitions that can be obtained by iteratively adding and multiplying together parts of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica