A343277 a(n) = lcm(denominator(p(n, x))), where p(n, x) are the rational polynomials defined in A342321.

1, 2, 6, 12, 60, 30, 210, 280, 2520, 1260, 6930, 4620, 60060, 6006, 30030, 240240, 4084080, 1225224, 11639628, 2771340, 19399380, 1939938, 44618574, 178474296, 4461857400, 106234700, 1434168450, 20078358300, 582272390700, 19409079690, 601681470390, 125024721120

Offset: 0

Author

Peter Luschny, Apr 10 2021

Keywords

• nonn

Crossrefs

Cf. A342321.

Programs

Mathematica

(* Using function Poly342321 from A342321. *)
A343277[n_] := Denominator[Together[Poly342321[n, x]]];
Table[A343277[n], {n, 0, 31}]