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,4

Links

Table of n, a(n) for n=0..31.

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

Adjacent sequences: A362986 A362987 A362988 * A362990 A362991 A362992

Keyword

nonn

Author

Peter Luschny, May 14 2023

Status

approved