OFFSET
1,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10080
FORMULA
MATHEMATICA
Nest[Append[#1, #2 #1[[#2]] ] & @@ {#, DivisorSigma[0, Length@ # + 1]} &, {1, 1}, 82] (* Michael De Vlieger, Nov 25 2018 *)
PROG
(GAP) a:=[1, 1];; for n in [3..100] do a[n]:=Tau(n)*a[Tau(n)]; od; a; # Muniru A Asiru, Nov 24 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 24 2018
STATUS
approved