f[t_] := t^(4/5)*(t - 4)^3

p1 := Plot[f[t], {t, 2, 6}, PlotRange -> All]

p2 := Plot[f'[t], {t, 2, 6}]

Show[p1, p2];

Solve[f'[t] == 0, t]

f[2] // N

f[4]

f[16/19] // N

f[6] // N

(16/19)  // N