cp's OEIS Frontend

A091612 Column 1 of triangle A091603.

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