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

Links

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

Mathematica

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

Crossrefs

Cf. A342321.

Sequence in context: A375524 A232112 A117481 * A341617 A083268 A368901

Adjacent sequences: A343274 A343275 A343276 * A343278 A343279 A343280

Keyword

nonn

Author

Peter Luschny, Apr 10 2021

Status

approved