A130473 Partial sums of A087172.

1, 3, 6, 9, 14, 19, 24, 32, 40, 48, 56, 64, 77, 90, 103, 116, 129, 142, 155, 168, 189, 210, 231, 252, 273, 294, 315, 336, 357, 378, 399, 420, 441, 475, 509, 543, 577, 611, 645, 679, 713, 747, 781, 815, 849, 883, 917, 951, 985, 1019, 1053, 1087, 1121, 1155, 1210

Offset: 1

Author

Hieronymus Fischer, May 28 2007

Keywords

• nonn

Crossrefs

Cf. A000045, A130233, A130234, A130235, A130236, A130238, A130240, A087172.

Programs

Mathematica

Accumulate[Flatten[Map[ConstantArray[Fibonacci[#],Fibonacci[#-1]]&,Range[15]]]] (* Peter J. C. Moses, May 02 2022 *)

Formula

a(n) = (1/2)*(Fib(2*b(n)+1) - 3*Fib(b(n))*Fib(b(n)+1)-1) + (n+1)*Fib(b(n)) where b(n) = A130233(n) = A130234(n+1)-1 and Fib(n)=A000045(n).