A361195 Numerator of the discriminant of the n-th Legendre polynomial.

1, 3, 135, 23625, 260465625, 11371668721875, 7888446990683634375, 21776965089186101310140625, 15330043202319289712414934678515625, 43033523436556282747812223470803609794921875, 1927983533652930855481078826533672813447199742802734375

Offset

1,2

Links

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

Eric Weisstein's World of Mathematics, Legendre Polynomial.

Eric Weisstein's World of Mathematics, Polynomial Discriminant.

Mathematica

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

Prog

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

Crossrefs

Cf. A361196 (denominators).

Sequence in context: A173582 A065973 A110973 * A136411 A193136 A037120

Adjacent sequences: A361192 A361193 A361194 * A361196 A361197 A361198

Keyword

nonn,frac

Author

Michel Marcus, Mar 04 2023

Status

approved