fo = 440;
k = E^(Log[2]/12) // N;
f[1] = fo/k^9 // N;    
f[2] = 
      fo/k^8 // N;   
f[3] = fo/k^7 // N;   
f[4] = fo/k^6 // N;   
f[5] = fo/k^5 // N;   
f[6] = fo/k^4 // N;   
f[7] = fo/k^3 // N;   
f[8] = fo/k^2 // N;   
f[9] = fo/k // N;   
f[10] = fo // N;   
f[11] = fo*k // N;   
f[12] = fo*k^2 // N;   
f[13] = fo*k^3 // N;   
som[n_] := 
        Play [Sin[2 Pi f[n] t], {t, 0, 4}];
  
k = 13
f[k]
som[k]