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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A107387 Expansion of x*(1-2*x-x^2)/( (1-x)*(1+x)*(1-3*x+x^2)). 2
0, 1, 1, 2, 3, 7, 16, 41, 105, 274, 715, 1871, 4896, 12817, 33553, 87842, 229971, 602071, 1576240, 4126649, 10803705, 28284466, 74049691, 193864607, 507544128, 1328767777, 3478759201, 9107509826, 23843770275, 62423800999, 163427632720, 427859097161 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

COMMENTS

The real roots of the denominator function are x = +-1, A104457 and A132338.

LINKS

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

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

FORMULA

a(n) = 1 + A001654(n-2).

MATHEMATICA

LinearRecurrence[{3, 0, -3, 1}, {0, 1, 1, 2}, 50] (* Vincenzo Librandi, Aug 22 2012 *)

CoefficientList[Series[x (1-2x-x^2)/((1-x)(1+x)(1-3x+x^2)), {x, 0, 40}], x] (* Harvey P. Dale, May 31 2020 *)

PROG

(MAGMA) I:=[ 0, 1, 1, 2]; [n le 4 select I[n] else 3*Self(n-1)-3*Self(n-3) +Self(n-4): n in [1..40]] // Vincenzo Librandi, Aug 22 2012

CROSSREFS

Sequence in context: A334398 A027118 A114582 * A091487 A247332 A162092

Adjacent sequences:  A107384 A107385 A107386 * A107388 A107389 A107390

KEYWORD

nonn,easy

AUTHOR

Roger L. Bagula, May 24 2005, corrected Sep 04 2008

EXTENSIONS

Replaced with a regular sequence by R. J. Mathar, Aug 31 2011

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 August 10 14:50 EDT 2020. Contains 336381 sequences. (Running on oeis4.)