A006089 -id:A006089 - cp's OEIS frontend

A002753 Coefficients of elliptic function sn.

1, 1, 14, 135, 5478, 165826, 13180268, 834687179, 109645021894, 11966116940238, 2347836365864484, 393938089395885894, 107947764316226205276, 25835579116799316507780

Offset: 0

N. J. A. Sloane

nonn

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, Tenth Printing, 1972, p. 575, Eq. 16.22.1 and 16.22.2.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Vincenzo Librandi, Table of n, a(n) for n = 0..100
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, Tenth Printing, 1972, p. 575, Eq. 16.22.1 and 16.22.2.
A. Cayley, An Elementary Treatise on Elliptic Functions (page images), G. Bell and Sons, London, 1895, p. 56.
C. L. Mallows, Letter to N. J. A. Sloane, May 16 1973.
J. Tannery and J. Molk, Eléments de la Théorie des Fonctions Elliptiques (Vol. 4), Gauthier-Villars, Paris, 1902, p. 92.

Cf. A006089, A060628.

lim = 14; se = Series[ JacobiSN[u, m], {u, 0, 2 lim -1}]; a[n_] := (-1)^n*Coefficient[ SeriesCoefficient[se, 2n + 1]*(2n + 1)!, m^Floor[n/2]]; a[0] = a[1] = 1; Table[a[n], {n, 0, lim-1}] (* Jean-François Alcover, Sep 21 2011 *)

a(n) ~ 2^(4*n + 13/2) * n^(2*n + 1) / (exp(2*n) * Pi^(2*n + 2)). - Vaclav Kotesovec, Apr 10 2018

More terms from Paolo Dominici (pl.dm(AT)libero.it) using formulas 16.22.1 and 16.22.2 of Abramowitz and Stegun's Handbook of Mathematical Functions

A172259 Let CK(m) denote the complete elliptic integral of the first kind. a(n) is the n-th smallest integer k such that floor(CK(1/k)) = floor(CK(1/(k-1))) + 1.

Original entry on oeis.org

1, 2, 5, 14, 38, 101, 275, 746, 2026, 5507, 14969, 40689, 110604, 300652, 817255, 2221528, 6038739, 16414993, 44620576, 121291299, 329703934, 896228212, 2436200862, 6622280533, 18001224835, 48932402358, 133012060152, 361564266077, 982833574297, 2671618645410

Offset: 1

Michel Lagneau, Jan 30 2010

nonn

F(z,k) = Integral_{t=0..z} 1/(sqrt(1-t^2)*sqrt(1-k^2*t^2)) dt and the complete elliptic integral CK is defined by CK(k) = F(1,sqrt(1-k^2)). We calculate the values of CK(k) with k = 1/p, p = 1,2,3, ... and we propose a very interesting property: a(n+1)/a(n) tends toward e = 2.7182818... when n tends to infinity. For example, a(8) / a(7) = 2.718281581; a(9) / a(8) = 2.7182817562.

			a(3) = 38 because floor(CK(1/37)) = 4 and floor(CK(1/38)) = 5.

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, Tenth Printing, 1972, p. 575, Eq. 16.22.1 and 16.22.2.
M. Abramowitz and I. Stegun, "Elliptic Integrals", Chapter 17 of Handbook of Mathematical Functions. Dover Publications Inc., New York, 1046 p., (1965).
A. Cayley, A memoir on the transformation of elliptic functions, Collected Mathematical Papers. Vols. 1-13, Cambridge Univ. Press, London, 1889-1897, Vol. 9, p. 128.

A. Cayley, An Elementary Treatise on Elliptic Functions, G. Bell and Sons, London, 1895, p. 56.
F. Clarke, The Taylor Series Coefficients of the Jacobi Elliptic Functions, slides. [broken link]

Cf. elliptic functions: A001936, A002318, A001937, A001934, A001938, A002754, A001939, A001940, A001941, A002753, A006089, A004005.

a0:=1:for p from 1 to 1000 do:a:= evalf(EllipticCK(1/p)):if floor(a)=a0+1 then print(p):a0:=floor(a):else fi:od:

F(z,k) = Integral_{t=0..z} 1/(sqrt(1-t^2)*sqrt(1-k^2*t^2)) dt. CK is defined by CK(k) = F(1,sqrt(1-k^2)). a(n) is the n-th integer k such that floor(CK(1/k)) = floor(CK(1/(k-1))) + 1.

cp's OEIS Frontend

A002753 Coefficients of elliptic function sn.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Mathematica

Formula

Extensions