Click the graphic to play the sound.
logistic[n_Integer]:=Module[{f,t,x},f=Compile[{x,t},Evaluate[(3+) x (1-x)]];FoldList[f,0.223,Range[n]]]
ListPlay[logistic[8000], SampleRate ->2000]