A308825 Sum of the third largest parts of the partitions of n into 5 parts.
0, 0, 0, 0, 0, 1, 1, 2, 4, 7, 11, 17, 24, 36, 50, 69, 91, 123, 158, 204, 259, 326, 403, 499, 606, 739, 886, 1060, 1256, 1489, 1745, 2041, 2371, 2750, 3166, 3643, 4160, 4750, 5393, 6112, 6897, 7774, 8720, 9772, 10910, 12168, 13518, 15006, 16601, 18352, 20229
Offset: 0
Keywords
Examples
The partitions of n into 5 parts for n = 10, 11, .. 1+1+1+1+10 1+1+1+2+9 1+1+1+3+8 1+1+1+4+7 1+1+1+5+6 1+1+1+1+9 1+1+2+2+8 1+1+1+2+8 1+1+2+3+7 1+1+1+3+7 1+1+2+4+6 1+1+1+4+6 1+1+2+5+5 1+1+1+5+5 1+1+3+3+6 1+1+1+1+8 1+1+2+2+7 1+1+3+4+5 1+1+1+2+7 1+1+2+3+6 1+1+4+4+4 1+1+1+3+6 1+1+2+4+5 1+2+2+2+7 1+1+1+1+7 1+1+1+4+5 1+1+3+3+5 1+2+2+3+6 1+1+1+2+6 1+1+2+2+6 1+1+3+4+4 1+2+2+4+5 1+1+1+3+5 1+1+2+3+5 1+2+2+2+6 1+2+3+3+5 1+1+1+1+6 1+1+1+4+4 1+1+2+4+4 1+2+2+3+5 1+2+3+4+4 1+1+1+2+5 1+1+2+2+5 1+1+3+3+4 1+2+2+4+4 1+3+3+3+4 1+1+1+3+4 1+1+2+3+4 1+2+2+2+5 1+2+3+3+4 2+2+2+2+6 1+1+2+2+4 1+1+3+3+3 1+2+2+3+4 1+3+3+3+3 2+2+2+3+5 1+1+2+3+3 1+2+2+2+4 1+2+3+3+3 2+2+2+2+5 2+2+2+4+4 1+2+2+2+3 1+2+2+3+3 2+2+2+2+4 2+2+2+3+4 2+2+3+3+4 2+2+2+2+2 2+2+2+2+3 2+2+2+3+3 2+2+3+3+3 2+3+3+3+3 -------------------------------------------------------------------------- n | 10 11 12 13 14 ... -------------------------------------------------------------------------- a(n) | 11 17 24 36 50 ... -------------------------------------------------------------------------- - _Wesley Ivan Hurt_, Sep 11 2019
Programs
-
Mathematica
Table[Sum[Sum[Sum[Sum[j, {i, j, Floor[(n - j - k - l)/2]}], {j, k, Floor[(n - k - l)/3]}], {k, l, Floor[(n - l)/4]}], {l, Floor[n/5]}], {n, 0, 100}] Table[Total[IntegerPartitions[n,{5}][[;;,3]]],{n,0,50}] (* Harvey P. Dale, Oct 01 2024 *)