A296560 Number of normal semistandard Young tableaux whose shape is the conjugate of the integer partition with Heinz number n.
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
Keywords
Crossrefs
Programs
-
Mathematica
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]
Comments