Sound[ListPlay[First[RealDigits[N[#, 2000]]]] & /@
      Select[ArrayPad[FareySequence[33], -1],
             With[{d = Denominator[#]},
                  MultiplicativeOrder[10, Fold[Quotient, d, {2, 5}^IntegerExponent[d, {2, 5}]]] > 1] &]]