1-TETから始めて、完全な5分の1（ちょうど比率3/2）のより良い近似を持つ等しい気質を与えます。（OEISシーケンスA060528）

OEISからコピーされたシーケンスの正式な説明：

最も近い音階のステップが2つの楽音のトーンの比率にますます近づく近似の平均律（オクターブの等分割）のリスト：完全な4th、4/3、およびその補数は完全な5th、3/2。

対称性により、完全な4分の1は問題ではないことに注意してください。

3がシーケンス内にあることを知っているとしましょう。3-TETの頻度は次のとおりです。

2^0, 2^⅓, 2^⅔

どこに2^⅔最も近い対数の近似が3/2。

シーケンスは4ですか？4-TETの頻度は次のとおりです。

2^0, 2^¼, 2^½, 2^¾

どこ2^½の最も近い近似値です3/2。これはに勝るもの2^⅔ではないので、4はシーケンスに含まれていません。

同様の方法で、5がシーケンス内にあることなどを確認します。

n入力として整数を指定する場合、出力は順序の最初のN個の数値でなければなりません。たとえば、の場合n = 7、出力は次のようになります。

1 2 3 5 7 12 29

xnorによるシーケンスの説明

無理数定数の$\log_2(3) \approx 1.5849625007211563\dots$有理分数の配列によって近似することができます。

分数は、絶対距離で新しい最も近いものである場合、シーケンスに含まれます$\left| \frac{p}{q} - \log_2(3)\ \right|$、つまり、分母が小さいか等しい他のどの分数よりも近い。

あなたの目標は、最初の$n$分母を順番に出力することです。これらはシーケンスA060528（表）です。分子（必須ではありません）は、A254351で指定されます（表）

ルール：

1. シーケンスA060528を直接インポートしないでください。

2. 番号が区別できる限り、形式は重要ではありません。上記の例では、出力は次のようになります。

   [1,2,3,5,7,12,29]

3. これはコードゴルフなので、バイト単位の最も短いコードが優先されます。

05AB1E、19 18バイト

µ¯ßNLN/3.²<αßDˆ›D–

オンラインでお試しください！

µ                      # repeat until counter == input
 ¯                     #  push the global array
  ß                    #  get the minimum (let's call it M)
   N                   #  1-based iteration count
    L                  #  range 1..N
     N/                #  divide each by N
       3.²             #  log2(3)
          <            #  -1
           α           #  absolute difference with each element of the range
            ß          #  get the minimum
             Dˆ        #  add a copy to the global array
               ›       #  is M strictly greater than this new minimum?
                D–     #  if true, print N
                       #  implicit: if true, add 1 to the counter

Wolfram言語（Mathematica）、62 60バイト

Denominator@NestList[Rationalize[r=Log2@3,Abs[#-r]]&,2,#-1]&

オンラインでお試しください！

JavaScript（V8）、81 80 78バイト

-2バイトArnauldに感謝！

n=>{for(d=g=1;w=Math.log2(3),w+=~(w*g-.5)/g,n--;g++)w*w<d?d=print(g)||w*w:n++}

オンラインでお試しください！

Python 2、92バイト

E=k=input()
n=0
while k:
 n+=1;e=abs((3.169925001442312*n-1)%2-1)/n
 if e<E:print n;E=e;k-=1

オンラインでお試しください！

3.169925001442312$2 \log_2(3)$2 * numpy.log2(3)

クリーン、128の 111 108バイト

import StdEnv
c=ln 3.0/ln 2.0
?d=abs(toReal(toInt(c*d))/d-c)
$i=take i(iterate(\d=until((>)(?d)o?)inc d)1.0)

オンラインでお試しください！

Realの64ビット倍精度型の制限まで機能します。

MATL、27 25バイト

1`@:@/Q3Zl-|X<hY<tdzG-}df

オンラインでお試しください！

説明

1       % Push 1. This initiallizes the vector of distances
  `     % Do...while
  @:    %   Range [1, 2, ..., k], where k is the iteration index, staring at 1
  @/    %   Divide by k, element-wise. Gives [1/k, 2/k, ..., 1]
  Q     %   Add 1, element-wise. Gives [(k+1/k, (k+2)/k, ..., 2]
  3Zl   %   Push log2(3)
  -|    %   Absolute difference, element-wise
  X<    %   Minimum
  h     %   Concatenate with vector of previous distances
  Y<    %   Cumulative minimum
  t     %   Duplicate
  dz    %   Consecutive differences, number of nonzeros. This tells how many
        %   times the cumulative minimum has decreased
  G-    %   Subtract input n. This is the loop condition. 0 means we are done
}       % Finally (execute on loop exit)
  d     %   Consecutive differences (of the vector of cumulative differences)
  f     %   Indices of nonzeros. This is the final result
        % End. A new iteration is executed if the top of the stack is nonzero
        % Implicit display

Perl 5の（-MPOSIX=log2 -M5.01 -n）、73、78、71のバイト

以下のコメントを修正、改善される可能性があります...

グリミーのおかげで-7バイト

$o=abs$d-(0|.5+($d=log2 3)*++$;)/$;;$@=$o,$_-=say$;if!$@|$o<$@;$_&&redo

オンラインでお試しください！