Nest[Mod[2^#, 10^6] &, 1, 10]