cp's OEIS Frontend

A179928 Row sums of A179927, the triangle of centered orthotopic numbers.

%I A179928 #8 May 10 2021 01:36:05
%S A179928 1,3,6,13,32,89,276,943,3514,14159,61242,282633,1384684,7170701,
%T A179928 39105992,223867419,1341434134,8392364851,54696456734
%N A179928 Row sums of A179927, the triangle of centered orthotopic numbers.
%C A179928 a(n)-1 is the sum of the antidiagonal of array A265583 from (n+1,1) to (1,n+1). - _Mathew Englander_, Apr 11 2021
%F A179928 From _Mathew Englander_, Apr 11 2021: (Start)
%F A179928 a(n) = 1 + Sum_{i = 1..n} (i+1)*i^(n-i).
%F A179928 a(n) = A026898(n) + A026898(n-1) for n > 0. (End)
%p A179928 A179928 := proc(n) local j; add(A179927(n,j),j=0..n) end;
%t A179928 e[0, _] = 1; e[n_, x_] := e[n, x] = x (1 - x) D[e[n - 1, x], x] + e[n - 1, x] (1 + (n - 1) x) // Expand;
%t A179928 h[n_, x_] := e[n, x] (1 + x)/(1 - x)^(n + 1);
%t A179928 T[n_, k_] := SeriesCoefficient[h[n - k, x], {x, 0, k}];
%t A179928 a[n_] := Sum[T[n, k], {k, 0, n}];
%t A179928 Table[a[n], {n, 0, 18}] (* _Jean-François Alcover_, Jul 11 2019 *)
%Y A179928 Cf. A179927, A265583, A026898.
%K A179928 nonn
%O A179928 0,2
%A A179928 _Peter Luschny_, Aug 02 2010