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!)
 A207870 Numbers n matched to Zeckendorf polynomials divisible by x+1. 2
 6, 10, 14, 16, 23, 26, 35, 37, 42, 51, 57, 60, 68, 74, 83, 90, 92, 97, 106, 110, 116, 120, 127, 132, 134, 146, 149, 157, 163, 172, 178, 184, 188, 192, 194, 206, 214, 217, 234, 236, 241, 250, 254, 260, 264, 271, 276, 278, 288, 294, 298, 302, 304, 311 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS The Zeckendorf polynomials Z(x,n) are defined and ordered at A207813. LINKS EXAMPLE The first ten Zeckendorf polynomials are1, x, x^2, x^2 + 1, x^3, x^3 + 1, x + x^3, x^4, 1 + x^4, x + x^4; their values at x=-1 are 1, -1, 1, 2, -1, 0, -2, 1, 2, 0, indicating initial terms for A207869 and A207870. MATHEMATICA fb[n_] := Block[{k = Ceiling[Log[GoldenRatio, n*Sqrt[5]]],    t = n, fr = {}}, While[k > 1, If[t >= Fibonacci[k],     AppendTo[fr, 1]; t = t - Fibonacci[k],     AppendTo[fr, 0]]; k--]; fr]; t = Table[fb[n],       {n, 1, 500}]; b[n_] := Reverse[Table[x^k, {k, 0, n}]] p[n_, x_] := t[[n]].b[-1 + Length[t[[n]]]] Table[p[n, x], {n, 1, 40}] Table[p[n, x] /. x -> 1, {n, 1, 120}]  (* A007895 *) Table[p[n, x] /. x -> 2, {n, 1, 120}]  (* A003714 *) Table[p[n, x] /. x -> 3, {n, 1, 120}]  (* A060140 *)    t1 = Table[p[n, x] /. x -> -1,    {n, 1, 420}]                        (* A207869 *) Flatten[Position[t1, 0]]               (* A207870 *) t2 = Table[p[n, x] /. x -> I, {n, 1, 420}]; Flatten[Position[t2, 0]                (* A207871 *) Denominator[Table[p[n, x] /. x -> 1/2,    {n, 1, 120}]]                       (* A207872 *) Numerator[Table[p[n, x] /. x -> 1/2,    {n, 1, 120}]]                       (* A207873 *) CROSSREFS Cf. A207813, A207869. Sequence in context: A075777 A315161 A315162 * A315163 A248632 A178246 Adjacent sequences:  A207867 A207868 A207869 * A207871 A207872 A207873 KEYWORD nonn AUTHOR Clark Kimberling, Feb 21 2012 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 April 19 11:58 EDT 2021. Contains 343114 sequences. (Running on oeis4.)