login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A099479 Count, repeating 4n three times for n > 0. 4
0, 1, 2, 3, 4, 4, 4, 5, 6, 7, 8, 8, 8, 9, 10, 11, 12, 12, 12, 13, 14, 15, 16, 16, 16, 17, 18, 19, 20, 20, 20, 21, 22, 23, 24, 24, 24, 25, 26, 27, 28, 28, 28, 29, 30, 31, 32, 32, 32, 33, 34, 35, 36, 36, 36, 37, 38, 39, 40, 40, 40, 41, 42, 43, 44, 44, 44, 45, 46, 47, 48, 48, 48, 49 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

A Chebyshev transform of A000975.

The denominator in the g.f. is 1-2x+2x^2-2x^3+2x^4-2x^5+x^6, a version of the Jones polynomial of the knot 9_43.

The g.f. is the image of x/((1-x)(1-x-2x^2)) under the Chebyshev transform A(x)->(1/(1+x^2))A(x/(1+x^2)).

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (2,-2,2,-2,2,-1).

FORMULA

G.f.: x*(1+x^2)/((1-x+x^2)*(1-x-x^3+x^4)).

a(n) = 2*a(n-1) - 2*a(n-2) + 2*a(n-3) - 2*a(n-4) + 2*a(n-5) - a(n-6).

a(n) = -cos(Pi*2n/3 + Pi/3)/6 - sqrt(3)*sin(Pi*2n/3 + Pi/3)/18 - sqrt(3)*cos(Pi*n/3 + Pi/6)/6 - sin(Pi*n/3 + Pi/6)/2 + 2(n+1)/3.

a(n) = Sum_{k=0..floor(n/2)} C(n-k, k)*(-1)^k*(4*2^(n-1-2k)/3 - (-1)^n/6 - 1/2).

MATHEMATICA

CoefficientList[Series[x (1 + x^2)/((1 - x + x^2) (1 - x - x^3 + x^4)), {x, 0, 100}], x] (* Vincenzo Librandi, Sep 25 2013 *)

LinearRecurrence[{2, -2, 2, -2, 2, -1}, {0, 1, 2, 3, 4, 4}, 80] (* Harvey P. Dale, Dec 11 2014 *)

PROG

(MAGMA) I:=[0, 1, 2, 3, 4, 4]; [n le 6 select I[n] else 2*Self(n-1)-2*Self(n-2)+2*Self(n-3)-2*Self(n-4)+2*Self(n-5)-Self(n-6): n in [1..100]]; // Vincenzo Librandi, Sep 25 2013

(PARI) x='x+O('x^50); concat([0], vec(x*(1+x^2)/((1-x+x^2)*(1-x-x^3+x^4)))) \\ G. C. Greubel, Oct 10 2017

CROSSREFS

Cf. A099480.

Sequence in context: A087876 A006158 A135414 * A120508 A199332 A029085

Adjacent sequences:  A099476 A099477 A099478 * A099480 A099481 A099482

KEYWORD

easy,nonn

AUTHOR

Paul Barry, Oct 18 2004

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 October 15 22:25 EDT 2019. Contains 328038 sequences. (Running on oeis4.)