The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 Cf. A193649, A076699. Sequence in context: A251862 A056807 A146927 * A041783 A041899 A101397 Adjacent sequences:  A193647 A193648 A193649 * A193651 A193652 A193653 KEYWORD nonn AUTHOR Clark Kimberling, Aug 02 2011 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 9 09:12 EDT 2021. Contains 343699 sequences. (Running on oeis4.)