[go: up one dir, main page]

login
A343277
a(n) = lcm(denominator(p(n, x))), where p(n, x) are the rational polynomials defined in A342321.
2
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
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
KEYWORD
nonn
AUTHOR
Peter Luschny, Apr 10 2021
STATUS
approved