year = 1; N[Nest[# year++ - 1 &, E - 1, 25], 30]