Table[Mod[IntegerPart[(29 + Sqrt[21])^n], 100], {n, 1, 2000}]