RosettaCodeData/Task/Iterated-digits-squaring/J/iterated-digits-squaring-4.j

   10 8$sumdigsq^:(i.80) 15
15 26 40 16 37 58 89 145
42 20  4 16 37 58 89 145
42 20  4 16 37 58 89 145
42 20  4 16 37 58 89 145
42 20  4 16 37 58 89 145
42 20  4 16 37 58 89 145
42 20  4 16 37 58 89 145
42 20  4 16 37 58 89 145
42 20  4 16 37 58 89 145
42 20  4 16 37 58 89 145