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