|
%I #10 Feb 19 2015 14:26:10
%S 1,6,33,208,1505,12330,112973,1145568,12742389,154308350,2021296189,
%T 28480485024,429565218277,6905903216562,117891260108985,
%U 2129869055824000,40600135597843817,814383095809997142,17147155400516728601,378137512431282658800
%N Q-residue of A075392, where Q=A075392. (See Comments.)
%C The definition of Q-residue is given at A193649.
%F Conjecture: a(n) +(-n-4)*a(n-1) +(n+1)*a(n-2) -a(n-3)=0. - _R. J. Mathar_, Feb 19 2015
%t q[n_, k_] := (k + 1) (n + 1); (* A075362 *)
%t r[0] = 1; r[k_] := Sum[q[k - 1, i] r[k - 1 - i], {i, 0, k - 1}];
%t p[n_, k_] := (k + 1) (n + 1); (* A075362 *)
%t v[n_] := Sum[p[n, k] r[n - k], {k, 0, n}]
%t Table[v[n], {n, 0, 20}] (* A193665 *)
%t TableForm[Table[q[i, k], {i, 0, 4}, {k, 0, i}]]
%t Table[r[k], {k, 0, 8}] (* A193665 *)
%t TableForm[Table[p[n, k], {n, 0, 4}, {k, 0, n}]]
%Y Cf. A075362, A193649.
%K nonn
%O 0,2
%A _Clark Kimberling_, Aug 02 2011
|
