cp's OEIS Frontend

A249059 Row sums of the triangular array at A249057.

%I A249059 #7 Oct 27 2014 23:56:57
%S A249059 1,5,10,40,110,430,1420,5720,21340,89980,367400,1627120,7138120,
%T A249059 33172040,154520080,751616800,3687498320,18719834320,96157299040,
%U A249059 507993654080,2719611532000,14911459229920,82901747529920,470599687507840,2708946870815680
%N A249059 Row sums of the triangular array at A249057.
%H A249059 Clark Kimberling, <a href="/A249059/b249059.txt">Table of n, a(n) for n = 0..100</a>
%e A249059 First 3 rows from A249057:
%e A249059 1
%e A249059 4    1
%e A249059 5    4    1,
%e A249059 so that a(0) = 1, a(1) = 5, a(2) = 10.
%t A249059 z = 30; p[x_, n_] := x + (n + 2)/p[x, n - 1]; p[x_, 1] = 1;
%t A249059 t = Table[Factor[p[x, n]], {n, 1, z}];
%t A249059 u = Numerator[t];
%t A249059 v1 = Flatten[CoefficientList[u, x]]; (* A249057  *)
%t A249059 v2 = u /. x -> 1  (* A249059 *)
%t A249059 v3 = u /. x -> 0  (* A249060 *)
%Y A249059 Cf. A249057, A249060.
%K A249059 nonn,easy
%O A249059 0,2
%A A249059 _Clark Kimberling_, Oct 20 2014