Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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] &]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement