OFFSET
1,7
COMMENTS
A generalized Young tableau of shape y is an array obtained by replacing the dots in the Ferrers diagram of y with positive integers. 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).
REFERENCES
Bruce E. Sagan, The Symmetric Group, Springer-Verlag New York, 2001.
LINKS
EXAMPLE
The a(25) = 11 tableaux:
1 2 3 1 2 2 1 1 3 1 1 2
1 2 3 1 3 3 2 2 3 2 3 3
.
1 2 2 1 1 2 1 1 2 1 1 2 1 1 1 1 1 1
1 2 2 2 2 2 1 2 2 1 1 2 2 2 2 1 2 2
.
1 1 1
1 1 1
MATHEMATICA
primeMS[n_]:=If[n===1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
undptns[y_]:=DeleteCases[Select[Tuples[Range[0, #]&/@y], OrderedQ[#, GreaterEqual]&], 0, {2}];
eh[y_]:=If[Total[y]=!=1, 1, 0]+Sum[eh[c], {c, Select[undptns[y], Total[#]>1&&Total[y]-Total[#]>1&]}];
Table[eh[Reverse[primeMS[n]]], {n, 60}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 22 2018
STATUS
approved