DSolve[{v'[t]==-k v[t]^3, v[0]==10}, v[t], t]

velocity=(v[t]/.%)[[1]]

Solve[velocity==4]/.t->2

velocity/.%

Solve[10/Sqrt[1 + 21t/8]==1]