cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A112299 Expansion of x * (1 - x) * (1 - x^2) * (1 - x^3) / (1 - x^8) in powers of x.

This page as a plain text file.
%I A112299 #38 Sep 08 2022 08:45:21
%S A112299 1,-1,-1,0,1,1,-1,0,1,-1,-1,0,1,1,-1,0,1,-1,-1,0,1,1,-1,0,1,-1,-1,0,1,
%T A112299 1,-1,0,1,-1,-1,0,1,1,-1,0,1,-1,-1,0,1,1,-1,0,1,-1,-1,0,1,1,-1,0,1,-1,
%U A112299 -1,0,1,1,-1,0,1,-1,-1,0,1,1,-1,0,1,-1,-1,0,1,1,-1,0,1,-1,-1,0,1,1,-1,0,1,-1,-1,0,1,1,-1,0,1,-1,-1,0,1,1,-1,0,1
%N A112299 Expansion of x * (1 - x) * (1 - x^2) * (1 - x^3) / (1 - x^8) in powers of x.
%C A112299 Periodic with period length 8.
%C A112299 Sum_{k>=1} a(k)/k = Pi/8. - _Jaume Oliver Lafont_, Oct 20 2009
%H A112299 G. C. Greubel, <a href="/A112299/b112299.txt">Table of n, a(n) for n = 1..2500</a>
%H A112299 Michael Somos, <a href="http://grail.eecs.csuohio.edu/~somos/rfmc.html">Rational Function Multiplicative Coefficients</a>
%H A112299 <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0,-1,0,-1,0,-1).
%F A112299 Euler transform of length 8 sequence [-1, -1, -1, 0, 0, 0, 0, 1].
%F A112299 Multiplicative with a(2) = -1, a(2^e) = 0 if e>1, a(p^e) = 1 if p == 1 (mod 4), a(p^e) = (-1)^e if p == 3 (mod 4).
%F A112299 G.f.: x * (1 + x + x^2) * (1 - x)^2 / ((1 + x^2) * (1 + x^4)).
%F A112299 G.f.: f(x) - f(x^2) where f(x) := x / (1 + x^2). - _Michael Somos_, Jun 19 2015
%F A112299 a(n) = -a(4 - n) = a(n + 8) for all n in Z. a(4*n) = 0.
%F A112299 a(2*n) = - A056594(n-1). a(2*n + 1) = A033999(n). a(4*n + 1) = 1. a(4*n + 3) = -1. a(4*n + 2) = - A033999(n). - _Michael Somos_, Jun 19 2015
%F A112299 a(n) = A257196(n) unless n=0. - _Michael Somos_, Sep 01 2015
%e A112299 G.f. = x - x^2 - x^3 + x^5 + x^6 - x^7 + x^9 - x^10 - x^11 + x^13 + x^14 - x^15 + ...
%t A112299 LinearRecurrence[{0,-1,0,-1,0,-1},{1,-1,-1,0,1,1},110] (* _Harvey P. Dale_, Dec 07 2014 *)
%t A112299 a[ n_] := {1, -1, -1, 0, 1, 1, -1, 0}[[Mod[n, 8, 1]]];
%o A112299 (PARI) {a(n) = [0, 1, -1, -1, 0, 1, 1, -1][n%8 + 1]};
%o A112299 (PARI) {a(n) = [0, 1, -(-1)^(n\4), -1][n%4 + 1]}; /* _Michael Somos_, Jun 19 2015 */
%o A112299 (Magma) m:=50; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(x*(1+x+x^2)*(1-x)^2/((1+x^2)*(1+x^4)))); // _G. C. Greubel_, Aug 03 2018
%Y A112299 Cf. A033999, A056594, A257196.
%K A112299 sign,mult,easy
%O A112299 1,1
%A A112299 _Michael Somos_, Sep 02 2005