|
%I #15 Apr 21 2021 12:56:49
%S 1,2,6,8,10,144,70,128,162,6400,22,6220800,26,100352,182250,425984,
%T 170,429981696,38,163840000,13502538,317194240,46,247669456896,31250,
%U 1417674752,15943230,80564191232,9802,25076532510720000000,62,10737418240,38196790434,1241245548544
%N Cancellation factor in reducing Sum_{k=0...n} n^k/k! to lowest terms.
%H Michel Marcus, <a href="/A214402/b214402.txt">Table of n, a(n) for n = 1..300</a>
%H Eric Weisstein, <a href="http://mathworld.wolfram.com/ExponentialSumFunction.html">Exponential Sum Function</a>.
%F a(n) = n!/A214401(n).
%t Table[n!/Denominator[Sum[n^k/k!, {k, 0, n}]], {n, 1, 30}]
%o (PARI) a(n) = n!/denominator(sum(k=0, n, n^k/k!)); \\ _Michel Marcus_, Apr 20 2021
%Y Cf. A063170, A090878, A093101, A120266, A214401.
%K nonn
%O 1,2
%A _Jonathan Sondow_, Jul 15 2012
%E More terms from _Michel Marcus_, Apr 20 2021
|
