OFFSET
1,2
COMMENTS
The initial terms of the column sums of Kostka matrices of increasing size converge to a(k). As an infinite sequence, a(k) then equals the k-th column sum of an infinite Kostka matrix.
1,
1, 2,
1, 2, 4,
1, 2, 3, 5, 10,
1, 2, 3, 5, 7, 13, 26,
1, 2, 3, 5, 4, 8, 14, 11, 20, 38, 76
1, 2, 3, 5, 4, 8, 14, 10, 13, 23, 42, 32, 60, 116, 232
1, 2, 3, 5, 4, 8, 14, 5, 11, 14, 24, 43, 17, 30, ..
1, 2, 3, 5, 4, 8, 14, 5, 11, 14, 24, 43, 13, 19, ..
...
For column k, and with mu representing the k-th partition of n, it appears that the number of SSYT with contents equal to partition mu becomes constant for n greater than or equal to 2j+2, with j the value for which A000070(j) < k <= A000070(j+1), when the k-th partition of n becomes (k+i, partition_of_k); i >= 0.
EXAMPLE
a(7)=14 since the 7th partition of n (n >= 5) is (1^5), (3,1^3), (4,1^3), ... converging to (3+i,1^3); i >= 0. The count of SSYT with content (3+i,1^3) or 3+i ones, and a single 2,3 and 4 is limited to the 14 SSYT
{{432111}} {{42111}{3}} {{43111}{2}} {{43211}{1}} {{4211}{31}}
{{4311}{21}} {{4321}{11}} {{4111}{3}{2}} {{4211}{3}{1}} {{4311}{2}{1}}
{{432}{111}} {{421}{31}{1}} {{431}{21}{1}} {{411}{3}{2}{1}}
extended by i ones in the first row.
MATHEMATICA
(* function 'kostka': see A178718 *)
it=Table[Tr /@ Transpose[ PadLeft[#, PartitionsP[n]] & /@ kostka /@ Partitions[ n ] ], {n, 16}];
First /@ Cases[ Transpose[{PadRight[Part[ it, -2], PartitionsP[16]], Last[ it ]}], {q_, q_}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wouter Meeussen, Apr 28 2012
STATUS
approved