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.

A155033 Matrix inverse of A155031.

This page as a plain text file.
%I A155033 #6 Mar 15 2021 21:30:33
%S A155033 1,0,1,0,1,1,0,1,1,1,0,3,2,1,1,0,4,3,2,1,1,0,10,7,4,2,1,1,0,18,13,7,4,
%T A155033 2,1,1,0,37,26,15,8,4,2,1,1,0,71,51,29,15,8,4,2,1,1,0,146,104,59,31,
%U A155033 16,8,4,2,1,1,0,285,203,115,61,31,16,8,4,2,1,1,0,577,411,233,123,63,32,16,8,4,2,1,1
%N A155033 Matrix inverse of A155031.
%H A155033 G. C. Greubel, <a href="/A155033/b155033.txt">Rows n = 1..50 of the triangle, flattened</a>
%F A155033 Sum_{k=1..n} T(n,k) = A101173(n). - _G. C. Greubel_, Mar 15 2021
%e A155033 Table begins and row sums are:
%e A155033   1                            =  1;
%e A155033   0,  1                        =  1;
%e A155033   0,  1,  1                    =  2;
%e A155033   0,  1,  1,  1                =  3;
%e A155033   0,  3,  2,  1, 1             =  7;
%e A155033   0,  4,  3,  2, 1, 1          = 11;
%e A155033   0, 10,  7,  4, 2, 1, 1       = 25;
%e A155033   0, 18, 13,  7, 4, 2, 1, 1    = 46;
%e A155033   0, 37, 26, 15, 8, 4, 2, 1, 1 = 94;
%t A155033 A155031[n_, k_]:= If[k>n, 0, If[k==n, 1, If[k==1 || Mod[n, k]==0, 0, -1]]];
%t A155033 A155033:= Inverse[Table[A155031[n, k], {n,30}, {k,30}]];
%t A155033 Table[A155033[[n, k]], {n,15}, {k,n}]//Flatten (* _G. C. Greubel_, Mar 15 2021 *)
%Y A155033 Cf. A101173.
%K A155033 nonn,tabl
%O A155033 1,12
%A A155033 _Mats Granvik_, Jan 19 2009