f[n_Integer] := Nest[-D[#, x]/2 &, Cos[x], n]
Sum[f[n], {n, 0, Infinity}](does not work)
The sum of that series can be manually found as Is ...

f[n_Integer] := Nest[-D[#, x]/2 &, Cos[x], n]
Sum[f[n], {n, 0, Infinity}](does not work)
The sum of that series can be manually found as s(x)=54cosx+52sinx Is ...