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.)

1, 0, 3, 7, 10, 31, 24, 127, 136, 292, 352, 2047, 1664, 8191, 5504, 9664, 32896, 131071, 116736, 524287, 419840, 603904, 1398784, 8388607, 7897088, 17318416

Offset

0,3

Comments

For the definition of Q-residue, see A193649.

Links

Table of n, a(n) for n=0..25.

Mathematica

q[n_, k_] := 1;
r[0] = 1; r[k_] := Sum[q[k - 1, i] r[k - 1 - i], {i, 0, k - 1}]
p[n_, k_] := Coefficient[Cyclotomic[n, x], x, k]
v[n_] := Sum[p[n, k] r[n - k], {k, 0, n}]
Table[v[n], {n, 0, 25}]    (* A193650 *)
TableForm[Table[q[i, k], {i, 0, 4}, {k, 0, i}]]
Table[r[k], {k, 0, 8}]  (* 2^k *)
TableForm[Table[p[n, k], {n, 0, 8}, {k, 0, n}]]  (* A076699 *)

Crossrefs

Cf. A193649, A076699.

Sequence in context: A363651 A056807 A146927 * A041783 A041899 A101397

Adjacent sequences: A193647 A193648 A193649 * A193651 A193652 A193653

Keyword

nonn

Author

Clark Kimberling, Aug 02 2011

Status

approved