|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
For the definition of Q-residue, see A193649.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|