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

%I #5 Apr 10 2021 20:07:50

%S 1,2,6,12,60,30,210,280,2520,1260,6930,4620,60060,6006,30030,240240,

%T 4084080,1225224,11639628,2771340,19399380,1939938,44618574,178474296,

%U 4461857400,106234700,1434168450,20078358300,582272390700,19409079690,601681470390,125024721120

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

%t (* Using function Poly342321 from A342321. *)

%t A343277[n_] := Denominator[Together[Poly342321[n, x]]];

%t Table[A343277[n], {n, 0, 31}]

%Y Cf. A342321.

%K nonn

%O 0,2

%A _Peter Luschny_, Apr 10 2021