A299202 -id:A299202 - cp's OEIS frontend

A294019 Number of same-trees whose leaves are the parts of the integer partition with Heinz number n.

0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 2, 1, 0, 0, 2, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 3, 1, 0, 0, 2, 1, 0, 1, 0, 0, 0, 1, 3, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 2, 3, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 2, 0, 1, 4, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 8

Offset: 1

Gus Wiseman, Feb 07 2018

nonn

By convention a(1) = 0.

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

			The a(108) = 8 same-trees: ((22)(2(11))), ((22)((11)2)), ((2(11))(22)), (((11)2)(22)), (222(11)), (22(11)2), (2(11)22), ((11)222).
From _Antti Karttunen_, Sep 22 2018: (Start)
For 12 = prime(1)^2 * prime(2)^1, we have the following two cases: 2(11) and (11)2, thus a(12) = 2.
For 36 = prime(1)^2 * prime(2)^2, we have the following cases: (11)22, 2(11)2, 22(11), thus a(36) = 3.
For 144  = prime(1)^4 * prime(2)^2, we have the following 14 cases: (1111)(22), (22)(1111); ((11)(11))(22), (22)((11)(11)); (11)(11)22, (11)2(11)2, (11)22(11), 2(11)2(11), 2(11)(11)2, 22(11)(11); ((11)2)(11(2)), ((11)2)(2(11)), (2(11))((11)2), (2(11))(2(11)), thus a(144) = 14.
For n = 8775 = 3^3 * 5^2 * 13^1 = prime(2)^3 * prime(3)^2 * prime(6)^1, we have the following six cases: (222)(33)6, (222)6(33), (33)(222)6, (33)6(222), 6(222)(33), 6(33)(222), thus a(8775) = 6.
(End)

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A000005, A000041, A000720, A001222, A006241, A056239, A063834, A196545, A215366, A273873, A281145, A289501, A296150, A299200, A299201, A299202, A299203, A294018, A294080.

nn=120;
ptns=Table[If[n===1,{},Join@@Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]],{n,nn}];
tris=Join@@Map[Tuples[IntegerPartitions/@#]&,ptns];
qci[y_]:=qci[y]=If[Length[y]===1,1,Sum[Times@@qci/@t,{t,Select[tris,And[Length[#]>1,Sort[Join@@#,Greater]===y,SameQ@@Total/@#]&]}]];
qci/@ptns

A056239(n) = { my(f); if(1==n, 0, f=factor(n); sum(i=1, #f~, f[i,2] * primepi(f[i,1]))); }
productifbalancedfactorization(v) = if(!#v, 1, my(pw=A056239(v[1]), m=1); for(i=1,#v,if(A056239(v[i])!=pw,return(0), m *= A294019(v[i]))); (m));
A294019aux(n, m, facs) = if(1==n, productifbalancedfactorization(Vec(facs)), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A294019aux(n/d, m, newfacs))); (s));
A294019(n) = if(1==n,0,if(isprime(n),1,A294019aux(n, n-1, List([]))));
\\ A memoized implementation:
map294019 = Map();
A294019(n) = if(1==n,0,if(isprime(n),1,if(mapisdefined(map294019,n), mapget(map294019,n), my(v=A294019aux(n, n-1, List([]))); mapput(map294019,n,v); (v)))); \\ Antti Karttunen, Sep 22 2018

A281145(n) = Sum_{i=1..A000041(n)} a(A215366(n,i)).

a(p^n) = A006241(n) for any prime p and exponent n >= 1. - Antti Karttunen, Sep 22 2018

A296560 Number of normal semistandard Young tableaux whose shape is the conjugate of the integer partition with Heinz number n.

Original entry on oeis.org

1, 1, 1, 2, 1, 4, 1, 4, 6, 6, 1, 12, 1, 8, 16, 8, 1, 28, 1, 24, 30, 10, 1, 32, 22, 12, 44, 40, 1, 96, 1, 16, 48, 14, 68, 96, 1, 16, 70, 80, 1, 220, 1, 60, 204, 18, 1, 80, 90, 168, 96, 84, 1, 224, 146, 160, 126, 20, 1, 400, 1, 22, 584, 32, 264, 416, 1, 112, 160

Offset: 1

Gus Wiseman, Feb 15 2018

nonn

A tableau is normal if its entries span an initial interval of positive integers. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Cf. A000085, A001222, A056239, A063834, A112798, A122111, A138178, A153452, A191714, A210391, A228125, A296150, A296188, A299202.

a[n_]:=If[n===1,1,Sum[a[n/q*Times@@Cases[FactorInteger[q],{p_,k_}:>If[p===2,1,NextPrime[p,-1]^k]]],{q,Rest[Divisors[n]]}]];
Array[a,100]

A300384 In the ranked poset of integer partitions ordered by refinement, number of maximal chains from the local minimum to the partition with Heinz number n.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 2, 1, 1, 1, 4, 1, 11, 2, 2, 1, 33, 1, 116, 1, 5, 4, 435, 1, 2, 11, 1, 2, 1832, 2, 8167, 1, 12, 33, 10, 1, 39700, 116, 37, 1, 201785, 5, 1099449, 4, 3, 435, 6237505, 1, 19, 2, 123, 11, 37406458, 1, 27, 2, 474, 1832, 232176847, 2, 1513796040

Offset: 1

Gus Wiseman, Mar 04 2018

nonn

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

			The a(21) = 5 maximal chains are the rows:
(111111)<(21111)<(2211)<(222)<(42)
(111111)<(21111)<(2211)<(411)<(42)
(111111)<(21111)<(2211)<(321)<(42)
(111111)<(21111)<(3111)<(411)<(42)
(111111)<(21111)<(3111)<(321)<(42)

Cf. A000041, A001055, A001222, A002846, A056239, A112798, A213427, A215366, A265947, A296150, A299200, A299202, A299925, A300273, A300383, A300385.

pcovs[ptn_]:=Select[Union[Reverse/@Sort/@Join@@@Tuples[IntegerPartitions/@ptn]],Length[#]===Length[ptn]+1&];
coc[ptn_]:=coc[ptn]=If[Max[ptn]===1,1,Total[coc/@pcovs[ptn]]];
primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[coc[Reverse[primeMS[n]]],{n,50}]

cp's OEIS Frontend

A294019 Number of same-trees whose leaves are the parts of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A296560 Number of normal semistandard Young tableaux whose shape is the conjugate of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A300384 In the ranked poset of integer partitions ordered by refinement, number of maximal chains from the local minimum to the partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica