OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = Sum_{j=0..n} (-1)^(n-j)*binomial(n,j)*A003418(j). - G. C. Greubel, Apr 08 2023
MATHEMATICA
A100443[n_]:= (-1)^n +Sum[(-1)^(n-k)*Binomial[n, k]*Apply[LCM, Range[1, k]], {k, n}];
Table[A100443[n], {n, 0, 50}] (* G. C. Greubel, Apr 08 2023 *)
PROG
(Magma) [(&+[(-1)^(n-k)*Binomial(n, k)*Lcm([1..k]): k in [0..n]]): n in [0..50]]; // G. C. Greubel, Apr 08 2023
(SageMath)
def A100443(n): return sum((-1)^(n-k)*binomial(n, k)*lcm(range(1, k+1)) for k in range(n+1) )
[A100443(n) for n in range(61)] # G. C. Greubel, Apr 08 2023
CROSSREFS
KEYWORD
sign
AUTHOR
N. J. A. Sloane, Nov 21 2004
STATUS
approved