This can be seen as a FixedPoint[]
, after looking into what Mathematica makes out of it
In[27]:= Sqrt[2]^Sqrt[2]^Sqrt[2]^Sqrt[2]^Sqrt[2]^Sqrt[2] // FullForm
Out[27]=Power[2,Power[2,Plus[-1,Power[2,Plus[-1,Power[2,Plus[-1,Power[2,Plus[-1,Power[2,Rational[-1,2]]]]]]]]]]]
and keeping in mind that
In[18]:= ((((Sqrt[2]^Sqrt[2])^Sqrt[2])^Sqrt[2])^Sqrt[2])^Sqrt[2] // N
Out[18]= 7.10299
diverges, one finds the expression to reach the fixed point is
In[30]:= 2^FixedPoint[Power[2, Plus[-1, #]] &, Sqrt[2.]]
Out[30]= 2.
which can - to return to the question - be entered into W|A. Note
In[31]:= FixedPoint[Power[2, Plus[-1, #]] &, Sqrt[2.]]
Out[31]= 1.
to no surprize.