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.

A075225 Expansion of 2-AGM(1,1-8x) (where AGM denotes the arithmetic-geometric mean).

This page as a plain text file.
%I A075225 #12 Sep 29 2019 08:16:08
%S A075225 1,4,4,16,84,496,3120,20416,137300,942384,6572336,46432960,331580272,
%T A075225 2389352256,17351364160,126851634432,932823545428,6895102385072,
%U A075225 51199649648048,381738099675840,2856639909232112,21447771308542784
%N A075225 Expansion of 2-AGM(1,1-8x) (where AGM denotes the arithmetic-geometric mean).
%F A075225 G.f.: 2-AGM(1, 1-8x).
%F A075225 a(n) ~ Pi * 2^(3*n-1) / (n * log(n)^2) * (1 - (2*gamma + 4*log(2))/log(n) + (3*gamma^2 + 12*log(2)*gamma + 12*log(2)^2 - Pi^2/2) / log(n)^2), where gamma is the Euler-Mascheroni constant A001620. - _Vaclav Kotesovec_, Sep 29 2019
%t A075225 CoefficientList[Series[2 - Pi*(1 - 8*x) / (2*EllipticK[1 - 1/(1 - 8*x)^2]), {x, 0, 25}], x] (* _Vaclav Kotesovec_, Sep 28 2019 *)
%o A075225 (PARI) a(n)=if(n<0,0,polcoeff(2-agm(1,1-8*x+x*O(x^n)),n))
%Y A075225 Cf. A060691. a(n)=-A060691(n) if n>0.
%K A075225 nonn
%O A075225 0,2
%A A075225 _Michael Somos_, Sep 11 2002