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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A072465 A Fibonacci-like model in which each pair of rabbits dies after the birth of their 4th litter: a(n) = a(n-2) + a(n-3) + a(n-4) + a(n-5). 0
1, 1, 1, 2, 3, 5, 7, 11, 17, 26, 40, 61, 94, 144, 221, 339, 520, 798, 1224, 1878, 2881, 4420, 6781, 10403, 15960, 24485, 37564, 57629, 88412, 135638, 208090, 319243, 489769, 751383, 1152740, 1768485, 2713135, 4162377, 6385743, 9796737 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

COMMENTS

Lim_{n->infinity} a(n+1)/a(n) = 1.534157744914.... is the root of x^5 = x^3 + x^2 + x + 1. - Benoit Cloitre, Jun 22 2002

A pair of rabbits born in month n begins to procreate in month n + 2, continues to procreate until month n + 5, and dies at the end of this month (each pair therefore gives birth to 5-2+1 = 4 pairs); the first pair is born in month 1. - Robert FERREOL, Oct 05 2017

LINKS

Table of n, a(n) for n=0..39.

N. T. Gridgeman, A New Look at Fibonacci Generalization, Fibonacci Quart., vol. 11 (1973), no. 1, 40-55.

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

FORMULA

a(n) = a(n-1) + a(n-2) - a(n-6);

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

a(n) = A013982(n) + A013982(n-1). - R. J. Mathar, Nov 29 2011

MAPLE

a:=proc(n, p, q) option remember:

if n<=p then 1

elif n<=q then a(n-1, p, q)+a(n-p, p, q)

else add(a(n-k, p, q), k=p..q) fi end:

seq(a(n, 2, 5), n=0..100); # Robert FERREOL, Oct 05 2017

MATHEMATICA

CoefficientList[ Series[(1 + x)/(1 - x^2 - x^3 - x^4 - x^5), {x, 0, 40}], x]

LinearRecurrence[{0, 1, 1, 1, 1}, {1, 1, 1, 2, 3}, 40] (* Harvey P. Dale, Sep 01 2014 *)

PROG

(PARI) x='x+O('x^99); Vec((1+x)/(1-x^2-x^3-x^4-x^5)) \\ Altug Alkan, Oct 06 2017

CROSSREFS

Cf. A013982.

Sequence in context: A055500 A018058 A002379 * A204631 A323361 A052284

Adjacent sequences:  A072462 A072463 A072464 * A072466 A072467 A072468

KEYWORD

easy,nonn

AUTHOR

Leonardo Fonseca (fonleo(AT)fisica.ufmg.br), Jun 19 2002

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 March 26 22:42 EDT 2019. Contains 321565 sequences. (Running on oeis4.)