Hi,
the point regarding the finite universe is well made indeed! I assume that the number of elements will follow this sequence:
NestList[2^# &, 1, 5]
A function which Mathematica evaluates easily. As you say the last number is quite large. If we display the logarithm to base 10 of these numbers we get:
Log[10, #] & /@ NestList[2^# &, 1, 5] //
(*{0., 0.30103, 0.60206, 1.20412, 4.81648, 19728.3}*)
The last element has 19729 digits. Given that WolframAlpha says
== Number of atoms in the Universe
that there are only about
$10^{80}$ atoms in the universe it might be difficult with the little matter in our Universe to actually print out these about
$10^{19728}$ elements. Also, even if we wanted to display them, say each for a millisecond, it might -depending on your favourite model of the universe - take quite a bit longer than the Universe, as we know it, will exist. Well, there is a theory that says that if we wait a bit longer,
$10^{10^56}}$ years or so, there might be a new big bang and we can start all over again. Even though the authors themselves seem to doubt that number.
Best wishes,
Marco
PS: If I ask Mathematica to calculate:
Log[10, #] & /@ NestList[2^# &, 1, 6]
it bails out on me.