A361196 Denominator of the discriminant of the n-th Legendre polynomial.

1, 1, 4, 16, 1024, 65536, 16777216, 4294967296, 70368744177664, 1152921504606846976, 75557863725914323419136, 4951760157141521099596496896, 5192296858534827628530496329220096, 5444517870735015415413993718908291383296, 22835963083295358096932575511191922182123945984

Offset

1,3

Links

Table of n, a(n) for n=1..15.

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

Adjacent sequences: A361193 A361194 A361195 * A361197 A361198 A361199

Keyword

nonn,frac

Author

Michel Marcus, Mar 04 2023

Status

approved