|
%I #6 Apr 30 2021 17:16:05
%S 1,2,4,7,12,19,30,46,70,105,155,223,316,443,619,865,1210,1690,2354,
%T 3263,4497,6157,8368,11280,15078,19989,26296,34356,44626,57693,74321,
%U 95503,122535,157101,201377,258155,330994,424398,544035,696995,892104,1140298,1455080
%N Sum of numbers of y-multisets of divisors of x for each x >= 1, y >= 0, x + y = n.
%F a(n) = Sum_{k=1..n} binomial(sigma(k) + n - k - 1, n - k).
%e The a(5) = 12 multisets of divisors:
%e {1,1,1,1} {1,1,1} {1,1} {1} {}
%e {1,1,2} {1,3} {2}
%e {1,2,2} {3,3} {4}
%e {2,2,2}
%t multchoo[n_,k_]:=Binomial[n+k-1,k];
%t Table[Sum[multchoo[DivisorSigma[0,k],n-k],{k,n}],{n,10}]
%Y Antidiagonal sums of the array A343658 (or row sums of the triangle).
%Y Dominates A343657.
%Y A000005 counts divisors.
%Y A007318 counts k-sets of elements of {1..n}.
%Y A059481 counts k-multisets of elements of {1..n}.
%Y A343656 counts divisors of powers.
%Y Cf. A000169, A000312, A009998, A062319, A067824, A143773, A146291, A176029, A184389, A285572, A326077, A327527, A334996, A343652, A343657.
%K nonn
%O 1,2
%A _Gus Wiseman_, Apr 30 2021
|
