login
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.)
2
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.
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
Sequence in context: A363651 A056807 A146927 * A041783 A041899 A101397
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 02 2011
STATUS
approved