$ \cos(1) = 0.540302\\ \cos\cos(1) = 0.857553...\\ \cos\cos\cos(1) = 0.65429... $
se vado avanti (l'ho poi rifatto con Mathematica, per chi conosce ho scritto
Codice: Seleziona tutto
Table[{k, Nest[Cos,1.,k]},{k,0,1000}];
ListPlot[%]
cos(cos(cos(...cos(1))...))
?