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.
%I A155102 #16 Jun 04 2022 21:31:49 %S A155102 1,-2,1,0,0,1,0,-3,0,1,0,0,0,0,1,0,0,-4,0,0,1,0,0,0,0,0,0,1,0,0,0,-5, %T A155102 0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,-6,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1, %U A155102 0,0,0,0,0,-7,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,-8,0,0,0,0 %N A155102 Triangle T(n,k) read by rows. If n=k then T(n,k)=1, elseif n=2*k then T(n,k)=-(k+1), else T(n,k)=0. %C A155102 Matrix inverse of this triangle is A155103. %e A155102 Table begins: %e A155102 1, %e A155102 -2,1, %e A155102 0,0,1, %e A155102 0,-3,0,1, %e A155102 0,0,0,0,1, %e A155102 0,0,-4,0,0,1, %e A155102 0,0,0,0,0,0,1, %e A155102 0,0,0,-5,0,0,0,1, %t A155102 t[n_, k_] := Which[n == k, 1, n == 2k, -k - 1, True, 0]; Flatten[ Table[t[n, k], {n, 1, 14}, {k, 1, n}]] (* _Jean-François Alcover_, Jul 19 2012 *) %o A155102 (PARI) T(n,k)=if(n==k,1,if(n==2*k,-(k+1))); for(n=1,20,for(k=1,n,print1(T(n,k),", "));print()) %o A155102 (Excel) =if(row()=column();1;if(and(row()>=column()*2;row()<=column()*2);-1;0))*(row()-column()+1) %Y A155102 Cf. A155103. %K A155102 sign,tabl %O A155102 1,2 %A A155102 _Mats Granvik_, Jan 20 2009 %E A155102 Definition clarified by _Mats Granvik_, Dec 05 2010