cp's OEIS Frontend

A193660 Q-residue of the triangle A038207 of coefficients of (x+2)^n, where Q is the triangle given by t(i,j)=1 for 0<=i<=j. (See Comments.)

%I A193660 #10 Mar 30 2012 18:57:38
%S A193660 1,2,5,22,201,3690,131149,9004286,1204317329,316525415890,
%T A193660 164556516205461,169974659148800742,349799994417738642265,
%U A193660 1436618749673583674658362,11785996128174350460348176861,193254862258295280115072223316430
%N A193660 Q-residue of the triangle A038207 of coefficients of (x+2)^n, where Q is the triangle given by t(i,j)=1 for 0<=i<=j.  (See Comments.)
%C A193660 For the definition of Q-residue, see A193649.
%t A193660 q[n_, k_] := Coefficient[(x + 2)^n, x, k]; (* A038207 *)
%t A193660 r[0] = 1; r[k_] := Sum[q[k - 1, i] r[k - 1 - i], {i, 0, k - 1}]
%t A193660 p[n_, k_] := 1
%t A193660 v[n_] := Sum[p[n, k] r[n - k], {k, 0, n}]
%t A193660 Table[v[n], {n, 0, 16}]    (* A038207 *)
%t A193660 TableForm[Table[q[i, k], {i, 0, 4}, {k, 0, i}]]
%t A193660 Table[r[k], {k, 0, 8}]  (* A126443 *)
%t A193660 TableForm[Table[p[n, k], {n, 0, 4}, {k, 0, n}]]
%Y A193660 Cf. A038207, A126443, A193649.
%K A193660 nonn
%O A193660 0,2
%A A193660 _Clark Kimberling_, Aug 02 2011