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

 

Logo


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

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

License Agreements, Terms of Use, Privacy Policy. .

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