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

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A192233 Constant term of the reduction of the n-th cyclotomic polynomial by x^2->x+1. 2

%I

%S -1,1,2,2,5,2,13,3,7,3,89,2,233,5,8,14,1597,5,4181,10,47,23,28657,12,

%T 4596,57,1619,65,514229,16,1346269,611,2102,379,12461,85,24157817,989,

%U 14357,533,165580141,113,433494437,3026,22201,6767,2971215073,598,171486453,3836

%N Constant term of the reduction of the n-th cyclotomic polynomial by x^2->x+1.

%C See A192232.

%t q[x_] := x + 1;

%t reductionRules = {x^y_?EvenQ -> q[x]^(y/2),

%t x^y_?OddQ -> x q[x]^((y - 1)/2)};

%t t = Table[

%t Last[Most[

%t FixedPointList[Expand[#1 /. reductionRules] &,

%t Cyclotomic[n, x]]]], {n, 1, 50}];

%t Table[Coefficient[Part[t, n], x, 0], {n, 1, 50}] (* A192233 *)

%t Table[Coefficient[Part[t, n], x, 1], {n, 1,

%t 50}] (* A051258 Fibocyclotomic numbers *)

%t (* by _Peter J. C. Moses_, Jun 25 2011 *)

%Y Cf. A192232.

%K sign

%O 1,3

%A _Clark Kimberling_, Jun 26 2011

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 January 18 01:05 EST 2020. Contains 330995 sequences. (Running on oeis4.)