A182395 Column sums of an infinite Kostka matrix.
1, 2, 3, 5, 4, 8, 14, 5, 11, 14, 24, 43, 6, 14, 20, 34, 44, 78, 142, 7, 17, 26, 44, 30, 65, 114, 85, 150, 271, 499, 8, 20, 32, 54, 40, 86, 150, 100, 130, 228, 408, 302, 544, 996, 1850, 9, 23, 38, 64, 50, 107, 186, 55, 136, 176, 307, 546, 206, 360, 475, 850, 1543, 633, 1139, 2080, 3846, 7193, 10, 26, 44, 74, 60, 128, 222, 70, 172, 222, 386, 684, 190, 286, 498, 654, 1164, 2100, 336, 772, 1376, 1026, 1838, 3336, 6122, 2474, 4514, 8328, 15518, 29186
Offset: 1
Keywords
Examples
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.
Programs
-
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_}]
Comments