cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A119463 Expansion of q^2 in powers of m/16 where q is Jacobi nome and m is the parameter.

This page as a plain text file.
%I A119463 #12 Oct 07 2019 11:45:16
%S A119463 0,0,1,16,232,3328,47956,696256,10185824,150050816,2224086242,
%T A119463 33144506016,496287233040,7462288270848,112621324354952,
%U A119463 1705306407267200,25898042412463808,394353145059565568
%N A119463 Expansion of q^2 in powers of m/16 where q is Jacobi nome and m is the parameter.
%D A119463 M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math.Series 55, Tenth Printing, 1972, p. 591.
%H A119463 Vaclav Kotesovec, <a href="/A119463/b119463.txt">Table of n, a(n) for n = 0..600</a>
%H A119463 M. Abramowitz and I. A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
%F A119463 Expansion of exp(2*Pi*i*tau) in powers of lambda(tau)/16 where lambda is elliptic lambda function
%F A119463 G.f.: exp(-2*Pi*agm(1, sqrt(1-16x))/agm(1, sqrt(16x))).
%t A119463 CoefficientList[Series[EllipticNomeQ[16*x]^2, {x, 0, 20}], x] (* _Vaclav Kotesovec_, Oct 07 2019 *)
%o A119463 (PARI) {a(n)=if(n<2, 0, n-=2; polcoeff( serreverse(x*prod(k=1, n, (1+x^k)^(-1)^k, 1+x*O(x^n))^8)^2, n+2))}
%o A119463 (PARI) {a(n)=n-=2; if(n<=0, n==0, polcoeff( subst(serreverse(1/ellj(x+x*O(x^n))),x,(x-16*x^2)^2/(1-16*x+256*x^2)^3), n+2))}
%Y A119463 Cf. A005797.
%K A119463 nonn
%O A119463 0,4
%A A119463 _Michael Somos_, May 20 2006