cp's OEIS Frontend

A174728 Triangle read by rows: T(n, m, q) = (1-q^n)*Eulerian(n+1, m) - (1-q^n) + 1, with q = 2.

%I A174728 #12 Sep 08 2022 08:45:51
%S A174728 1,1,1,1,-8,1,1,-69,-69,1,1,-374,-974,-374,1,1,-1735,-9330,-9330,
%T A174728 -1735,1,1,-7496,-74969,-152144,-74969,-7496,1,1,-31241,-545083,
%U A174728 -1983485,-1983485,-545083,-31241,1,1,-127754,-3724784,-22499414,-39828194,-22499414,-3724784,-127754,1
%N A174728 Triangle read by rows: T(n, m, q) = (1-q^n)*Eulerian(n+1, m) - (1-q^n) + 1, with q = 2.
%C A174728 Row sums are: {1, 2, -6, -136, -1720, -22128, -317072, -5119616, -92532096, -1854311680, -40834875136, ...}.
%H A174728 G. C. Greubel, <a href="/A174728/b174728.txt">Rows n = 0..100 of triangle, flattened</a>
%F A174728 T(n, m, q) = (1 - q^n)*Eulerian(n + 1, m) - (1 - q^n) + 1, where q = 2.
%e A174728 Triangle begins as:
%e A174728   1;
%e A174728   1,      1;
%e A174728   1,     -8,       1;
%e A174728   1,    -69,     -69,        1;
%e A174728   1,   -374,    -974,     -374,        1;
%e A174728   1,  -1735,   -9330,    -9330,    -1735,       1;
%e A174728   1,  -7496,  -74969,  -152144,   -74969,   -7496,      1;
%e A174728   1, -31241, -545083, -1983485, -1983485, -545083, -31241,  1;
%t A174728 Eulerian[n_, k_]:= Sum[(-1)^j*Binomial[n+1, j]*(k-j+1)^n, {j,0,k+1}];
%t A174728 With[{q = 2}, Table[(1-q^n)*(Eulerian[n+1, m]-1)+1, {n,0,10}, {m,0, n}] ]//Flatten (* _G. C. Greubel_, Apr 20 2019 *)
%o A174728 (PARI) q=2; {eulerian(n,k) = sum(j=0,k+1, (-1)^j*binomial(n+1,j)*(k-j+1)^n)};
%o A174728 for(n=0,10, for(k=0,n, print1((1-q^n)*(eulerian(n+1,k)-1)+1, ", "))) \\ _G. C. Greubel_, Apr 20 2019
%o A174728 (Magma) q:=2; Eulerian:= func< n,k | (&+[(-1)^j*Binomial(n+1,j)*(k-j+1)^n: j in [0..k+1]]) >; [[(1-q^n)*(Eulerian(n+1,k)-1) +1: k in [0..n]]: n in [0..10]]; // _G. C. Greubel_, Apr 20 2019
%o A174728 (Sage)
%o A174728 q=2;
%o A174728 def Eulerian(n,k): return sum((-1)^j*binomial(n+1,j)*(k-j+1)^n for j in (0..k+1))
%o A174728 [[(1-q^n)*(Eulerian(n+1,k)-1)+1 for k in (0..n)] for n in (0..10)] # _G. C. Greubel_, Apr 20 2019
%K A174728 sign,tabl
%O A174728 0,5
%A A174728 _Roger L. Bagula_, Mar 28 2010
%E A174728 Edited by _G. C. Greubel_, Apr 20 2019