A078620 Floor(average of first n Fibonacci numbers).

1, 1, 1, 1, 2, 3, 4, 6, 9, 14, 21, 31, 46, 70, 106, 161, 245, 375, 576, 885, 1364, 2107, 3261, 5058, 7856, 12223, 19045, 29715, 46423, 72610, 113696, 178215, 279620, 439127, 690223, 1085782, 1709350, 2693004, 4245644, 6697857, 10573035

Offset

1,5

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

a(n) = floor((1/n)*(Sum_{i=1..n} Fibonacci(n))).

Mathematica

s = 0; a = {}; For[i = 1, i <= 100, i++, s = s + Fibonacci[i]; a = Append[a, Floor[(1/i) s]]]; a
Module[{nn=50, fibs}, fibs=Fibonacci[Range[nn]]; Table[Floor[Mean[Take[ fibs, n]]], {n, nn}]] (* Harvey P. Dale, Jul 26 2014 *)

Crossrefs

Cf. A000045.

Sequence in context: A240496 A212464 A302016 * A073941 A005428 A355910

Adjacent sequences: A078617 A078618 A078619 * A078621 A078622 A078623

Keyword

easy,nonn

Author

Joseph L. Pe, Dec 11 2002

Status

approved