cp's OEIS Frontend

A155124 Triangle T(n, k) = 1-n if k=0 else 2, read by rows.

%I A155124 #16 Feb 03 2023 07:18:20
%S A155124 1,0,2,-1,2,2,-2,2,2,2,-3,2,2,2,2,-4,2,2,2,2,2,-5,2,2,2,2,2,2,-6,2,2,
%T A155124 2,2,2,2,2,-7,2,2,2,2,2,2,2,2,-8,2,2,2,2,2,2,2,2,2,-9,2,2,2,2,2,2,2,2,
%U A155124 2,2,-10,2,2,2,2,2,2,2,2,2,2,2,-11,2,2,2,2,2,2,2,2,2,2,2,2
%N A155124 Triangle T(n, k) = 1-n if k=0 else 2, read by rows.
%H A155124 G. C. Greubel, <a href="/A155124/b155124.txt">Rows n = 0..50 of the triangle, flattened</a>
%F A155124 From _G. C. Greubel_, Mar 25 2021: (Start)
%F A155124 T(n, k) = 1-n if k=0 else 2.
%F A155124 Sum_{k=0..n} T(n ,k) = n+1 = A000027(n+1). (End)
%e A155124 Triangle begins as:
%e A155124    1;
%e A155124    0, 2;
%e A155124   -1, 2, 2;
%e A155124   -2, 2, 2, 2;
%e A155124   -3, 2, 2, 2, 2;
%e A155124   -4, 2, 2, 2, 2, 2;
%e A155124   -5, 2, 2, 2, 2, 2, 2;
%e A155124   -6, 2, 2, 2, 2, 2, 2, 2;
%e A155124   -7, 2, 2, 2, 2, 2, 2, 2, 2;
%e A155124   -8, 2, 2, 2, 2, 2, 2, 2, 2, 2;
%e A155124   -9, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2;
%t A155124 Table[CoefficientList[-(m-1) + 2*x*(1-x^m)/(1-x), x], {m,0,15}]//Flatten
%t A155124 Table[If[k==0, 1-n, 2], {n,0,15}, {k,0,n}]//Flatten (* _G. C. Greubel_, Mar 25 2021 *)
%o A155124 (Magma) [k eq 0 select 1-n else 2: k in [0..n], n in [0..15]]; // _G. C. Greubel_, Mar 25 2021
%o A155124 (Sage) flatten([[1-n if k==0 else 2 for k in (0..n)] for n in (0..15)]) # _G. C. Greubel_, Mar 25 2021
%K A155124 sign,tabl,easy,less
%O A155124 0,3
%A A155124 _Roger L. Bagula_, Jan 20 2009
%E A155124 Edited by _G. C. Greubel_, Mar 25 2021