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.

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.

This page as a plain text file.
%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