The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A361196

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A361196

Denominator of the discriminant of the n-th Legendre polynomial.
(history; published version)

#6 by Michael De Vlieger at Sat Mar 04 08:58:16 EST 2023

STATUS

proposed

approved

#5 by Amiram Eldar at Sat Mar 04 05:09:17 EST 2023

STATUS

editing

proposed

#4 by Amiram Eldar at Sat Mar 04 05:09:15 EST 2023

MATHEMATICA

a[n_] := Denominator[Discriminant[LegendreP[n, x], x]]; Array[a, 15] (* Amiram Eldar, Mar 04 2023 *)

STATUS

proposed

editing

#3 by Michel Marcus at Sat Mar 04 04:57:38 EST 2023

STATUS

editing

proposed

#2 by Michel Marcus at Sat Mar 04 04:53:12 EST 2023

NAME

allocated for Michel MarcusDenominator of the discriminant of the n-th Legendre polynomial.

DATA

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, <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>.

PROG

(PARI) a(n) = denominator(poldisc(pollegendre(n)));

CROSSREFS

Cf. A361195 (numerators).

KEYWORD

allocated

nonn,frac

AUTHOR

Michel Marcus, Mar 04 2023

STATUS

approved

editing

#1 by Michel Marcus at Sat Mar 04 04:49:54 EST 2023

NAME

allocated for Michel Marcus

KEYWORD

allocated

STATUS

approved