proposed
approved
proposed
approved
editing
proposed
a[n_] := Denominator[Discriminant[LegendreP[n, x], x]]; Array[a, 15] (* Amiram Eldar, Mar 04 2023 *)
proposed
editing
editing
proposed
allocated for Michel MarcusDenominator of the discriminant of the n-th Legendre polynomial.
1, 1, 4, 16, 1024, 65536, 16777216, 4294967296, 70368744177664, 1152921504606846976, 75557863725914323419136, 4951760157141521099596496896, 5192296858534827628530496329220096, 5444517870735015415413993718908291383296, 22835963083295358096932575511191922182123945984
1,3
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LegendrePolynomial.html">Legendre Polynomial</a>.
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PolynomialDiscriminant.html">Polynomial Discriminant</a>.
(PARI) a(n) = denominator(poldisc(pollegendre(n)));
Cf. A361195 (numerators).
allocated
nonn,frac
Michel Marcus, Mar 04 2023
approved
editing
allocated for Michel Marcus
allocated
approved