login
A362989
a(n) = lcm({i + 1, i = 0..n}) / Product_{d | n, d + 1 prime} d.
1
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,4
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);
CROSSREFS
Cf. A003418 (lcm), A160014 (Clausen).
Sequence in context: A176965 A084249 A176591 * A191703 A096039 A201229
KEYWORD
nonn
AUTHOR
Peter Luschny, May 14 2023
STATUS
approved