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.
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
Offset: 1
Crossrefs
Programs
-
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
Extensions
Incorrect term 571611 removed by K. G. Stier, Jan 29 2015
More terms from Jon E. Schoenfield, Feb 06 2015
Comments