Flatten[Outer[List,{697,770,852},{1209,1336,1477}],1]

Grid[Partition[MapIndexed[Button[First[#2],EmitSound[Play[Total[Sin[2Pi # t]&/@#],{t,0,.1}]]]&,%],3]]