|
%I #7 Nov 27 2021 04:58:38
%S 1,-1,-2,0,1,3,4,3,3,0,0,-3,-4,-7,-9,-9,-9,-9,-9,-4,-5,-4,-3,2,3,5,6,
%T 11,11,17,17,17,17,17,18,18,18,18,18,11,10,13,13,10,11,10,10,3,4,0,1,
%U -2,-2,-3,-3,-9,-8,-7,-7,-19,-19,-19,-19,-19,-20,-21,-21,-21,-21,-27
%N Column 1 of triangle A091603.
%H G. C. Greubel, <a href="/A091612/b091612.txt">Table of n, a(n) for n = 1..500</a>
%t b[n_, i_, k_]:= b[n, i, k]= If[n==0, 1, If[i>n, 0, Sum[b[n-i*j, i+1, Min[k, Quotient[n-i*j, i+1]]], {j, 0, k}]]];
%t t[n_, k_]:= t[n, k]= If[k>n, 0, b[n,1,k] - b[n,1,k-1]]; (* t = A091602 *)
%t M := With[{p = 110}, Table[t[n, k], {n, p}, {k, p}]];
%t T := Inverse[M]; (* T = A091603 *)
%t Table[T[[n, 1]], {n, 100}] (* _G. C. Greubel_, Nov 27 2021 *)
%Y Cf. A091603.
%K sign
%O 1,3
%A _Christian G. Bower_, Jan 23 2004
|
