Clear[f]
f[x_] := x^3 + x^(1/3)

Plot[
  Evaluate@Table[D[f[x], {x, i}], {i, 0, 3}], {x, 1, 10},
  PlotLegends -> "Expressions", PlotTheme -> "Scientific",
  PlotLabel -> "f(x)=x^3+ x^(1/3) function and derivativesn"
]