f = {0, 2, 4, 5, 7, 9, 11, 12};
Do[
        Play[Cos[2*261.6*Pi*t*2^(f[[j]]/12)], {t, 0, 1}], {j, 1, 
          8}];