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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A167808 Numerator of x(n) = x(n-1) + x(n-2), x(0)=0, x(1)=1/2. 11
0, 1, 1, 1, 3, 5, 4, 13, 21, 17, 55, 89, 72, 233, 377, 305, 987, 1597, 1292, 4181, 6765, 5473, 17711, 28657, 23184, 75025, 121393, 98209, 317811, 514229, 416020, 1346269, 2178309, 1762289, 5702887, 9227465, 7465176, 24157817, 39088169, 31622993 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,5

LINKS

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

Wikipedia, Fibonacci number

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

FORMULA

a(n) = (a(n-1)*A131534(n) + a(n-2)*A131534(n+2))/A131534(n+1) for n > 1.

a(3*n) = A001076(n) = (a(3*n-1) + a(3*n-2))/2;

a(3*n+1) = A033887(n) = 2*a(3*n-1) + a(3*n-2);

a(3*n+2) = A015448(n+1) = a(3*n-1) + 2*a(3*n-2).

From Johannes W. Meijer, Jul 01 2010: (Start)

a(2*n) = A001906(n)/A131534(n+1) for n >= 0 and a(2*n+1) = A179131(n)/5 for n >= 1.

a(6*n+2) - 2*a(6*n) = A134493(n);

2*a(6*n+1) - a(6*n+3) = A023039(n);

2*a(6*n+4) - a(6*n+2) = A134497(n);

a(6*n+5) - 2*a(6*n+3) = A103134(n);

2*a(6*n+4) - a(6*n+6) = A075796(n).

(End)

From Gary Detlefs Dec 11 2010: (Start)

a(n) = numerator(A000045(n)/A000032(n)).

If n mod 3 = 0 then a(n) = Fibonacci(n)/2, else a(n)= Fibonacci(n). (End)

G.f.: -x*(1 + x + x^2 - x^3 + x^4) / ( (x^2 + x - 1)*(x^4 - x^3 + 2*x^2 + x + 1) ). - R. J. Mathar, Mar 08 2011

a(n) = 4*a(n-3) + a(n-6). - Muniru A Asiru, Oct 16 2018

MAPLE

nmax:=39; x(0):=0: x(1):=1/2:for n from 2 to nmax do x(n):=x(n-1)+x(n-2) od: for n from 0 to nmax do a(n):= numer(x(n)) od: seq(a(n), n=0..nmax); # Johannes W. Meijer, Jul 01 2010

with(combinat):f:=n->fibonacci(n):L:=n->f(n)+2*f(n-1):seq(numer(f(n)/L(n)), n=0..39); # Gary Detlefs Dec 11 2010

MATHEMATICA

f[n_]:=Numerator[Fibonacci[n]/Fibonacci[n+3]]; Array[f, 100, 0] (* Vladimir Joseph Stephan Orlovsky, Feb 17 2011*)

Numerator[LinearRecurrence[{1, 1}, {0, 1/2}, 40]] (* Harvey P. Dale, Aug 08 2014 *)

CoefficientList[Series[-x (1 + x + x^2 - x^3 + x^4)/((x^2 + x - 1) (x^4 - x^3 + 2 x^2 + x + 1)), {x, 0, 40}], x] (* Vincenzo Librandi, Aug 08 2014 *)

LinearRecurrence[{0, 0, 4, 0, 0, 1}, {0, 1, 1, 1, 3, 5}, 40] (* Ray Chandler, Aug 03 2015 *)

a[n_]:=If[Mod[n, 3]==0, Fibonacci[n]/2, Fibonacci[n]]; Array[a, 40, 0] (* Stefano Spezia, Oct 16 2018 *)

PROG

(GAP) a:=[0, 1, 1, 1, 3, 5];; for n in [7..40] do a[n]:=4*a[n-3]+a[n-6]; od; a; # Muniru A Asiru, Oct 16 2018

CROSSREFS

Cf. A000045, A130196 (denominator).

The a(2*n) appear in A179135. - Johannes W. Meijer, Jul 01 2010

Sequence in context: A326119 A201271 A324779 * A161353 A182045 A133758

Adjacent sequences:  A167805 A167806 A167807 * A167809 A167810 A167811

KEYWORD

nonn,frac

AUTHOR

Reinhard Zumkeller, Nov 12 2009

EXTENSIONS

Typo in title corrected by Johannes W. Meijer, Jun 26 2010

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 September 22 17:04 EDT 2019. Contains 327311 sequences. (Running on oeis4.)