Plot[{IteratedLog[x], Log[x]}, {x, 1, 2^8}]