|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
(* Using function Poly342321 from A342321. *)
A343277[n_] := Denominator[Together[Poly342321[n, x]]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|