A158569 - OEIS

%I #8 Feb 02 2019 20:29:05

%S 1,1,2,4,12,54,609,28656,14930351,365435296161,4660046610375530308,

%T 1454489111232772683678306641952,

%U 5789092068864820527338372482892113982249794889764

%N a(n) = Sum_{i=1..F(n)} F(i), n >= 1, where F(k) is A000045, Fibonacci numbers.

%C a(14) has 79 digits. - _Emeric Deutsch_, Apr 05 2009

%p with(combinat); a := proc (n) options operator, arrow: add(fibonacci(i), i = 1 .. fibonacci(n)) end proc: seq(a(n), n = 1 .. 13); # _Emeric Deutsch_, Apr 05 2009

%t Total/@Table[Sum[Fibonacci[Range[i]],{i,{Fibonacci[n]}}],{n,14}] (* _Harvey P. Dale_, Aug 26 2013 *)

%Y Cf. A000045.

%K easy,nonn

%O 1,3

%A _Ctibor O. Zizka_, Mar 21 2009

%E More terms from _Emeric Deutsch_, Apr 05 2009