Table[
NestList[Total[((IntegerDigits[#])^2)]&,n,20],
{n,100}
] // MatrixForm