{ for (n=1, #a=vector(10), if (n<=2, a[n] = 1, a[n] = fromdigits(digits(fromdigits(concat(vector(n-1, k, digits(a[k]))), n-1), n)) ); print (n " " a[n]); ); } quit