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.

A160904 Row sums of A159881.

This page as a plain text file.
%I A160904 #5 Jul 27 2018 20:36:37
%S A160904 1,1,1,2,4,4,-5,-23,9,308,1020,-448,-19647,-89379,-48935,1958306,
%T A160904 13904216,34488844,-223401589,-3022248531,-15637955831,-1081374732,
%U A160904 738978239768,7071581029520,29227771327153,-117008648911367
%N A160904 Row sums of A159881.
%H A160904 G. C. Greubel, <a href="/A160904/b160904.txt">Table of n, a(n) for n = 0..594</a>
%F A160904 a(n) = Sum_{k=0..n} A159881(n,k).
%e A160904 a(1) = 2-1=1. a(2)=3-3+1=1. a(3)=4-6+5-1=2.
%p A160904 A159881 := proc(n,k) option remember; if k = 0 then n+1; elif k < 0 or k > n then 0 ; else k*procname(n-1,k)-procname(n-1,k-1) ; fi; end: A159881s := proc(n) add( A159881(n,k),k=0..n) ; end: seq(A159881s(n),n=0..40) ;
%t A160904 T[n_, 0]:= n + 1; T[n_, k_]:= T[n, k] = If[k < 0 || k > n, 0, k*T[n - 1, k] - T[n - 1, k - 1]]; Table[Sum[T[n, k], {k, 0, n}], {n, 0, 50}] (* _G. C. Greubel_, Jul 27 2018 *)
%K A160904 easy,sign
%O A160904 0,4
%A A160904 _R. J. Mathar_, May 29 2009