Mathematica score sequence generator