素数の差分のサウンド
素数列(2,3,5,7,11,13,17,19,23...)の階差をとる。
(1,2,2,2,4,2,4,2,4....)
この数列から一秒間の1024個を選択して振幅を形成してやると素数の音を聴きとるまでになる。
なんとなく神秘的な余韻があるような。
同様に素数の二乗の差分をとるとこうなる。
なんとも冴えない音ではあります。
だけど派手派手しいのはやはり三角関数から合成するものに勝る物はない。
こんな関数のステレオ版ですわ。
{Sin[600 t+30 t^1.5 Sin[50 t]-12 t t Cos[50 t]],Sin[600 t+30 t^1.5 Sin[50 t]+12 t t Cos[50 t]]}
sifisound.snd
【Mathematica code】
ListPlay[Differences[Table[Prime[n],{n,20000}]],SampleRate->1024,SampleDepth->8]