login
A361196
Denominator of the discriminant of the n-th Legendre polynomial.
1
1, 1, 4, 16, 1024, 65536, 16777216, 4294967296, 70368744177664, 1152921504606846976, 75557863725914323419136, 4951760157141521099596496896, 5192296858534827628530496329220096, 5444517870735015415413993718908291383296, 22835963083295358096932575511191922182123945984
OFFSET
1,3
LINKS
Eric Weisstein's World of Mathematics, Legendre Polynomial.
Eric Weisstein's World of Mathematics, Polynomial Discriminant.
MATHEMATICA
a[n_] := Denominator[Discriminant[LegendreP[n, x], x]]; Array[a, 15] (* Amiram Eldar, Mar 04 2023 *)
PROG
(PARI) a(n) = denominator(poldisc(pollegendre(n)));
CROSSREFS
Cf. A361195 (numerators).
Sequence in context: A013179 A144177 A300315 * A355550 A296628 A123234
KEYWORD
nonn,frac
AUTHOR
Michel Marcus, Mar 04 2023
STATUS
approved