MoveTower[1,a_,b_,c_] := {Move[1,a,c]};
MoveTower[n_,a_,b_,c_] := Join[
MoveTower[n-1,a,c,b],
{Move[n,a,c]},
MoveTower[n-1,b,a,c]
]

MoveTower[8,1,2,3]