This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A214402 #16 Feb 16 2025 08:33:18 %S A214402 1,2,6,8,10,144,70,128,162,6400,22,6220800,26,100352,182250,425984, %T A214402 170,429981696,38,163840000,13502538,317194240,46,247669456896,31250, %U A214402 1417674752,15943230,80564191232,9802,25076532510720000000,62,10737418240,38196790434,1241245548544 %N A214402 Cancellation factor in reducing Sum_{k=0...n} n^k/k! to lowest terms. %H A214402 Michel Marcus, <a href="/A214402/b214402.txt">Table of n, a(n) for n = 1..300</a> %H A214402 Eric Weisstein, <a href="https://mathworld.wolfram.com/ExponentialSumFunction.html">Exponential Sum Function</a>. %F A214402 a(n) = n!/A214401(n). %t A214402 Table[n!/Denominator[Sum[n^k/k!, {k, 0, n}]], {n, 1, 30}] %o A214402 (PARI) a(n) = n!/denominator(sum(k=0, n, n^k/k!)); \\ _Michel Marcus_, Apr 20 2021 %Y A214402 Cf. A063170, A090878, A093101, A120266, A214401. %K A214402 nonn %O A214402 1,2 %A A214402 _Jonathan Sondow_, Jul 15 2012 %E A214402 More terms from _Michel Marcus_, Apr 20 2021