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.

Showing 1-3 of 3 results.

A052277 a(n) = (4n+2)!/2^(2n+1).

Original entry on oeis.org

1, 90, 113400, 681080400, 12504636144000, 548828480360160000, 49229914688306352000000, 8094874872198213459360000000, 2252447502438386084347676160000000, 997586474354936812896742294502400000000, 669959124447288464805194190141921792000000000
Offset: 0

Views

Author

N. J. A. Sloane, Feb 05 2000

Keywords

Crossrefs

Cf. A002432 (denominators of zeta(2*n)/Pi^(2*n)).
Cf. A068447, A067912, A013662 (zeta(4)).

Programs

  • Mathematica
    Table[(4n+2)!/2^(2n+1), {n, 0, 10}] (* Amiram Eldar, Feb 25 2022 *)
  • PARI
    a(n) = (4*n+2)!/2^(2*n+1); \\ Michel Marcus, Feb 20 2022

Formula

sin(x)*sinh(x) = Sum_{n>=0} (-1)^n*x^(4n+2)/a(n). - Benoit Cloitre, Feb 02 2002
From Amiram Eldar, Feb 25 2022: (Start)
Sum_{n>=0} 1/a(n) = (cosh(sqrt(2)) - cos(sqrt(2)))/2.
Sum_{n>=0} (-1)^n/a(n) = sin(1)*sinh(1). (End)

A053980 Engel expansion of zeta(3) = 1.20206... .

Original entry on oeis.org

1, 5, 98, 127, 923, 5474, 16490, 25355, 37910, 85150, 1033216, 2290644, 7844861, 11170684, 18884358, 21481832, 35060787, 52399788, 201059261, 261533994, 9939708446, 211698940106, 3030068839686, 4326424644987, 6082687570463
Offset: 1

Views

Author

Jeppe Stig Nielsen, Apr 02 2000

Keywords

Comments

Cf. A006784 for definition of Engel expansion.

References

  • F. Engel, Entwicklung der Zahlen nach Stammbruechen, Verhandlungen der 52. Versammlung deutscher Philologen und Schulmaenner in Marburg, 1913, pp. 190-191.

Crossrefs

Programs

  • Mathematica
    EngelExp[ A_, n_ ] := Join[ Array[ 1&, Floor[ A ] ], First@Transpose@NestList[ {Ceiling[ 1/Expand[ #[[ 1 ] ]#[[ 2 ] ]-1 ] ], Expand[ #[[ 1 ] ]#[[ 2 ] ]-1 ]}&, {Ceiling[ 1/(A-Floor[ A ]) ], A-Floor[ A ]}, n-1 ] ]

Extensions

More terms and additional comments from Mitch Harris, Jan 15 2001

A059186 Engel expansion of Pi^2/6, or zeta(2) = 1.64493.

Original entry on oeis.org

1, 2, 4, 7, 9, 22, 35, 79, 2992, 3597, 17523, 28632, 41470, 53093, 57406, 14504930, 42622213, 188335162, 322429556, 1023003875, 1328535963, 3138645732, 11618168524, 137721814936, 156929353744, 166732460513, 813398686532
Offset: 1

Views

Author

Keywords

Comments

Cf. A006784 for definition of Engel expansion.

References

  • F. Engel, Entwicklung der Zahlen nach Stammbruechen, Verhandlungen der 52. Versammlung deutscher Philologen und Schulmaenner in Marburg, 1913, pp. 190-191.

Crossrefs

Programs

  • Mathematica
    EngelExp[A_, n_] := Join[Array[1 &, Floor[A]], First@Transpose@
    NestList[{Ceiling[1/Expand[#[[1]] #[[2]] - 1]], Expand[#[[1]] #[[2]] - 1]/1} &, {Ceiling[1/(A - Floor[A])], (A - Floor[A])/1}, n - 1]];
    EngelExp[N[Pi^2/6, 7!], 100] (* Modified by G. C. Greubel, Dec 27 2016 *)
Showing 1-3 of 3 results.