素数列（2,3,5,7,11,13,17,19,23...）の階差をとる。
（1,2,2,2,4,2,4,2,4....）
この数列から一秒間の1024個を選択して振幅を形成してやると素数の音を聴きとるまでになる。
なんとなく神秘的な余韻があるような。
【Mathematica code】
ListPlay[Differences[Table[Prime[n],{n,20000}]],SampleRate->1024,SampleDepth->8]
素数列（2,3,5,7,11,13,17,19,23...）の階差をとる。
（1,2,2,2,4,2,4,2,4....）
この数列から一秒間の1024個を選択して振幅を形成してやると素数の音を聴きとるまでになる。
なんとなく神秘的な余韻があるような。
【Mathematica code】
ListPlay[Differences[Table[Prime[n],{n,20000}]],SampleRate->1024,SampleDepth->8]