A110761 := proc(n) option remember; local L ; if n = 0 then 1 ; else L := [seq(procname(i), i=0..n-1)] ; numtheory[tau]( digcatL(L)) ; end if; end proc: # R. J. Mathar, Apr 15 2011
MATHEMATICA
aggluTau[0] := 1; aggluTau[n_] := aggluTau[n] = DivisorSigma[0, FromDigits[Flatten[Table[IntegerDigits[aggluTau[i]], {i, 0, n - 1}]]]]; aggluTau/@Range[0, 19] (* Alonso del Arte, Jan 10 2020 *)