(*Definir la función*)f[t_] := Exp[-t]*Cos[t] + Log[t + 1]
(*Calcular derivadas hasta el cuarto orden*)
derivadas = Table[D[f[t], {t, n}], {n, 1, 4}]
(*Mostrar derivadas de forma bonita*)
TableForm[Table[{n, Simplify[derivadas[[n]]]}, {n, 1, 4}],
TableHeadings -> {{"1ª Derivada", "2ª Derivada", "3ª Derivada",
"4ª Derivada"}, {"Orden", "Expresión"}}]