|
%I #5 Feb 26 2020 15:57:44
%S 1,3,7,17,57,337,3737,72657,2369257,127188257,11156500857,
%T 1592432891857,369041278550057,138668563737942657,
%U 84415532990575319257,83213455958038482903857,132788829902694935512664457,342962001904259249964245209057
%N a(n) = Sum_{k=1..n} A153757(k).
%F A000012 * A153757 = A000012^2 * A003266; where A000012 = the partial sum operator as an infinite lower triangular matrix.
%e a(4) = 17 = (1 + 2 + 4 + 10), where A153757 = (1, 2, 4, 10, 40, 280, ...).
%t a[n_] := Sum[Fibonorial[k], {k, 1, n}]; Accumulate @ Table[a[n], {n, 1, 20}] (* _Amiram Eldar_, Feb 26 2020 *)
%Y Cf. A153757, A003266.
%K nonn
%O 1,2
%A _Gary W. Adamson_, Dec 31 2008
%E More terms from _Amiram Eldar_, Feb 26 2020
|
