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] &]]
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] &]]
Comments