r[t_]:={(2/3)(t^3)+t+1,(t^3)-t,(1/2)(t^2)+t}
Manipulate[
Show[
ParametricPlot3D[r[t],{t,0,5}],
ListPointPlot3D[{r[t]},PlotStyle->PointSize[Large]]],
{t,0,5}
]