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
KEYWORD
easy,nonn
AUTHOR
Joseph L. Pe, Dec 11 2002
STATUS
approved