login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A060528 A list of equal temperaments (equal divisions of the octave) whose nearest scale steps are closer and closer approximations to the ratios of two tones of musical harmony: the perfect 4th, 4/3 and its complement the perfect 5th, 3/2. 8
1, 2, 3, 5, 7, 12, 29, 41, 53, 200, 253, 306, 359, 665, 8286, 8951, 9616, 10281, 10946, 11611, 12276, 12941, 13606, 14271, 14936, 15601, 31867, 79335, 111202, 190537, 5446238, 5636775, 5827312, 6017849, 6208386, 6398923, 6589460, 6779997, 6970534, 7161071 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

The sequence was found by a computer search of all the equal divisions of the octave from 1 to over 6589460. This is not a perfect recurrent sequence because its self-accumulating nature fails between the 9th and 10th terms, between the 14th and 15th terms, and between the 30th and 31st terms. The examples of recurrence which are present in this sequence are of the same type that is seen in sequences A054540, A060526 and A060527. The numerical value of each term represents a musical scale based on an equal division of the octave. 12, for example, signifies the scale which is formed by dividing the octave into 12 equal parts. - corrected by K. G. Stier, Jan 29 2015

Also the denominators of increasingly better rational approximations to log(3)/log(2) = 1.5849625... (see A020857). The respective numerators are A254351. The reason why the sequence's "self-accumulating nature fails between the 9th and 10th terms, the 14th and 15th terms and the 30th and 31st terms" (see original comment) is simply that 84/53, 1054/665 and 301994/190537 are very good approximations, thus followed by a jump. (E.g., this phenomenon can also be seen in the numerators and denominators of rational approximations to Pi.). - K. G. Stier, Jan 29 2015

LINKS

Table of n, a(n) for n=1..40.

PROG

(Maxima) x:bfloat(log(3)/log(2)), fpprec:100, errold:2, for denominator:1 thru 10000 do (numerator:round(x*denominator), errnew:abs(x-numerator/denominator), if errnew < errold then (errold:errnew, print(denominator))); \\ K. G. Stier, Jan 29 2015

(PARI) lista(nn) = {d = 2; v = log(3)/log(2); for (den=1, nn, num = round(v*den); newd = abs(v-num/den); if (newd < d, print1(den, ", "); d = newd; ); ); } \\ after Maxima, Michel Marcus, Feb 28 2015

CROSSREFS

Cf. A054540, A060525, A060526, A060527, A254351.

Sequence in context: A235153 A177968 A024784 * A117593 A209192 A052021

Adjacent sequences:  A060525 A060526 A060527 * A060529 A060530 A060531

KEYWORD

frac,nonn

AUTHOR

Mark William Rankin (MarkRankin95511(AT)Yahoo.com), Apr 12 2001

EXTENSIONS

Incorrect term 571611 removed by K. G. Stier, Jan 29 2015

More terms from Jon E. Schoenfield, Feb 06 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified April 19 10:17 EDT 2015. Contains 256806 sequences.