cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A091623 Column 1 of triangle A091614.

This page as a plain text file.
%I A091623 #8 Nov 28 2021 01:22:13
%S A091623 1,-1,-3,-1,5,13,27,41,43,25,-23,-157,-447,-1011,-2087,-4081,-7685,
%T A091623 -14141,-25707,-46251,-82729,-147295,-261317,-462403,-816653,-1439457,
%U A091623 -2532779,-4448035,-7794637,-13624815,-23744693,-41230561,-71277787
%N A091623 Column 1 of triangle A091614.
%H A091623 G. C. Greubel, <a href="/A091623/b091623.txt">Table of n, a(n) for n = 1..120</a>
%t A091623 b[n_, l_, k_]:= b[n, l, k]= If[n==0, 1, Sum[If[i==l, 0, Sum[b[n-i*j, i, k], {j, 1, Min[k, n/i]}]], {i, n}]];
%t A091623 t[n_, k_]:= t[n, k]= If[k>n, 0, b[n, 0, k] - b[n, 0, k-1]]; (* A091613 *)
%t A091623 M:= With[{p=53}, Table[t[n, k], {n, p}, {k, p}]];
%t A091623 T := Inverse[M]; (* A091614 *)
%t A091623 Table[T[[n, 1]], {n, 50}] (* _G. C. Greubel_, Nov 27 2021 *)
%Y A091623 Cf. A091614.
%K A091623 sign
%O A091623 1,3
%A A091623 _Christian G. Bower_, Jan 23 2004