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
KEYWORD
nonn,frac
AUTHOR
Michel Marcus, Mar 04 2023
STATUS
approved