|
%I #20 Feb 27 2021 02:20:06
%S 1,-1,0,1,0,0,-1,-1,0,0,1,1,2,2,1,0,-1,-2,-3,-4,-5,-5,-5,-4,-3,-1,2,5,
%T 8,11,14,17,18,20,20,20,18,16,11,8,0,-6,-15,-23,-34,-43,-54,-63,-73,
%U -81,-88,-95,-98,-101,-99,-99,-89,-86,-70,-60,-38,-24,8,25,62
%N Column 1 of Inverse partition triangle A038498.
%o (PARI) tp(n, k) = if (n<1, 0, if (k<1, 0, if (k == n, 1, if (k > n, 0, tp(n-1, k-1) + tp(n-k, k)))));
%o lista(nn) = {my(mtp = matrix(nn, nn, n, k, tp(n, k)), mtpi = mtp^(-1)); vector(nn, k, mtpi[k, 1]);} \\ _Michel Marcus_, Feb 27 2021
%Y Cf. A038498, A039801, A039802, A039803, A039804.
%K sign
%O 1,13
%A _Christian G. Bower_, Feb 15 1999
%E a(60) onward corrected by _Sean A. Irvine_, Feb 26 2021
|
