cp's OEIS Frontend

A193650 Q-residue of the coefficient triangle (A076699) of the cyclotomic polynomials, where Q is the triangular array (t(i,j)) given by t(i,j)=1. (See Comments.)

%I A193650 #5 Mar 30 2012 18:57:38
%S A193650 1,0,3,7,10,31,24,127,136,292,352,2047,1664,8191,5504,9664,32896,
%T A193650 131071,116736,524287,419840,603904,1398784,8388607,7897088,17318416
%N A193650 Q-residue of the coefficient triangle (A076699) of the cyclotomic polynomials, where Q is the triangular array (t(i,j)) given by t(i,j)=1.  (See Comments.)
%C A193650 For the definition of Q-residue, see A193649.
%t A193650 q[n_, k_] := 1;
%t A193650 r[0] = 1; r[k_] := Sum[q[k - 1, i] r[k - 1 - i], {i, 0, k - 1}]
%t A193650 p[n_, k_] := Coefficient[Cyclotomic[n, x], x, k]
%t A193650 v[n_] := Sum[p[n, k] r[n - k], {k, 0, n}]
%t A193650 Table[v[n], {n, 0, 25}]    (* A193650 *)
%t A193650 TableForm[Table[q[i, k], {i, 0, 4}, {k, 0, i}]]
%t A193650 Table[r[k], {k, 0, 8}]  (* 2^k *)
%t A193650 TableForm[Table[p[n, k], {n, 0, 8}, {k, 0, n}]]  (* A076699 *)
%Y A193650 Cf. A193649, A076699.
%K A193650 nonn
%O A193650 0,3
%A A193650 _Clark Kimberling_, Aug 02 2011