login
A078620
Floor(average of first n Fibonacci numbers).
1
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
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
KEYWORD
easy,nonn
AUTHOR
Joseph L. Pe, Dec 11 2002
STATUS
approved