cp's OEIS Frontend

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

%I A192233 #5 Dec 04 2016 19:46:25
%S A192233 -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 A192233 4596,57,1619,65,514229,16,1346269,611,2102,379,12461,85,24157817,989,
%U A192233 14357,533,165580141,113,433494437,3026,22201,6767,2971215073,598,171486453,3836
%N A192233 Constant term of the reduction of the n-th cyclotomic polynomial by x^2->x+1.
%C A192233 See A192232.
%t A192233 q[x_] := x + 1;
%t A192233 reductionRules = {x^y_?EvenQ -> q[x]^(y/2),
%t A192233    x^y_?OddQ -> x q[x]^((y - 1)/2)};
%t A192233 t = Table[
%t A192233    Last[Most[
%t A192233      FixedPointList[Expand[#1 /. reductionRules] &,
%t A192233       Cyclotomic[n, x]]]], {n, 1, 50}];
%t A192233 Table[Coefficient[Part[t, n], x, 0], {n, 1, 50}]  (* A192233 *)
%t A192233 Table[Coefficient[Part[t, n], x, 1], {n, 1,
%t A192233   50}]  (* A051258 Fibocyclotomic numbers *)
%t A192233 (* by _Peter J. C. Moses_, Jun 25 2011 *)
%Y A192233 Cf. A192232.
%K A192233 sign
%O A192233 1,3
%A A192233 _Clark Kimberling_, Jun 26 2011