A362989 a(n) = lcm({i + 1, i = 0..n}) / Product_{d | n, d + 1 prime} d.

1, 1, 1, 6, 2, 30, 10, 420, 84, 1260, 420, 13860, 132, 180180, 60060, 360360, 24024, 6126120, 291720, 116396280, 705432, 116396280, 38798760, 2677114440, 9806280, 13385572200, 13385572200, 40156716600, 2677114440, 1164544781400, 5041319400, 72201776446800

Offset: 0

Author

Peter Luschny, May 14 2023

Keywords

• nonn

Crossrefs

Cf. A003418 (lcm), A160014 (Clausen).

Programs

Maple

LCM := n -> ilcm(seq(i + 1, i = 0..n)):
Clausen := n -> if n = 0 then 1 else
mul(i, i = select(isprime, map(i -> i+1, NumberTheory:-Divisors(n)))) fi:
A362989 := n -> LCM(n) / Clausen(n): seq(A362989(n), n = 0..31);