|
%I #24 Sep 22 2021 13:41:41
%S 1,2,6,114,27762,86427762,4031164827762,3319770429936027762,
%T 55696441261496986915227762,21577941278638297470665013744027762,
%U 215779412250996503370318565758665013744027762,61564384586850833363801728392684283449726665013744027762
%N Partial sums of hyperfactorials (A002109).
%H G. C. Greubel, <a href="/A264889/b264889.txt">Table of n, a(n) for n = 0..37</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Hyperfactorial.html">Hyperfactorial</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BarnesG-Function.html">Barnes G-Function</a>
%F a(n) = Sum_{k = 0..n} A002109(k).
%F a(n) = Sum_{k = 0..n} (k!)^k/Barnes G-Function(k + 1).
%e a(0) = 1;
%e a(1) = 1 + 1^1 = 2;
%e a(2) = 1 + 1^1 + 1^1*2^2 = 6;
%e a(3) = 1 + 1^1 + 1^1*2^2 + 1^1*2^2*3^3 = 114;
%e a(4) = 1 + 1^1 + 1^1*2^2 + 1^1*2^2*3^3 + 1^1*2^2*3^3*4^4 = 27762, etc.
%t Table[Sum[Hyperfactorial[k], {k, 0, n}], {n, 0, 11}]
%t Accumulate[Hyperfactorial[Range[0,15]]] (* _Harvey P. Dale_, Sep 22 2021 *)
%o (PARI) a(n) = sum(k=0, n, prod(j=2, k, j^j)); \\ _Altug Alkan_, Nov 27 2015
%Y Cf. A002109, A007489, A152690.
%K nonn
%O 0,2
%A _Ilya Gutkovskiy_, Nov 27 2015
| 