DSolve[{Derivative[2][x][t] == (k*x[t])/(x[t]^2 + y[t]^2)^(3/2), Derivative[2][y][t] == (k*y[t])/(x[t]^2 + y[t]^2)^(3/2)},{x[t], y[t]},t]