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-2 of 2 results.

A103922 Continued fraction expansion of the twelfth root of two, 2^(1/12).

Original entry on oeis.org

1, 16, 1, 4, 2, 7, 1, 1, 2, 2, 7, 4, 1, 2, 1, 60, 1, 3, 1, 2, 8, 5, 1, 2, 1, 1, 1, 5, 1, 1, 3, 5, 1, 1, 1, 2, 3, 1, 1, 1, 73, 3, 5, 1, 1, 1, 2, 26, 2, 1, 1, 2, 7, 2, 1, 1, 2, 3, 1, 1, 1, 14, 1, 2, 1, 4, 1, 19, 8, 3, 6, 5, 1, 2, 1, 1, 1, 5, 1, 4, 1, 1, 3, 10, 1, 1, 4, 4, 9, 4, 4, 1, 1, 1, 4, 1, 19, 16, 13
Offset: 0

Views

Author

Nicholas A Kooij (nickkooij(AT)hotmail.com), May 02 2005

Keywords

Comments

Successive note frequencies in the twelve-tone equal temperament chromatic scale are 2^(1/12) higher than their predecessor.

Crossrefs

Programs

  • Mathematica
    ContinuedFraction[2^(1/12), 100]
    ContinuedFraction[Surd[2,12],120] (* Harvey P. Dale, Jan 02 2019 *)
  • PARI
    default(realprecision, 120); contfrac(2^(1/12)) \\ Seiichi Manyama, Feb 05 2021

A341114 Denominators of continued fraction convergents to 2^(1/12).

Original entry on oeis.org

0, 1, 16, 17, 84, 185, 1379, 1564, 2943, 7450, 17843, 132351, 547247, 679598, 1906443, 2586041, 157068903, 159654944, 636033735, 795688679, 2227411093, 18614977423, 95302298208, 113917275631, 323136849470, 437054125101, 760190974571, 1197245099672
Offset: 0

Views

Author

Seiichi Manyama, Feb 05 2021

Keywords

Crossrefs

For numerators see A341113.

Programs

  • Mathematica
    Join[{0}, Denominator[Convergents[2^(1/12), 27]]] (* Amiram Eldar, Feb 05 2021 *)

Formula

a(0) = 0, a(1) = 1, a(n) = A103922(n-1) * a(n-1) + a(n-2) for n > 1.
Showing 1-2 of 2 results.