# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a361196
Showing 1-1 of 1

%I A361196 #6 Mar 04 2023 08:58:16
%S A361196 1,1,4,16,1024,65536,16777216,4294967296,70368744177664,
%T A361196 1152921504606846976,75557863725914323419136,
%U A361196 4951760157141521099596496896,5192296858534827628530496329220096,5444517870735015415413993718908291383296,22835963083295358096932575511191922182123945984
%N A361196 Denominator of the discriminant of the n-th Legendre polynomial.
%H A361196 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LegendrePolynomial.html">Legendre Polynomial</a>.
%H A361196 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PolynomialDiscriminant.html">Polynomial Discriminant</a>.
%t A361196 a[n_] := Denominator[Discriminant[LegendreP[n, x], x]]; Array[a, 15] (* _Amiram Eldar_, Mar 04 2023 *)
%o A361196 (PARI) a(n) = denominator(poldisc(pollegendre(n)));
%Y A361196 Cf. A361195 (numerators).
%K A361196 nonn,frac
%O A361196 1,3
%A A361196 _Michel Marcus_, Mar 04 2023

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE