|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|