|
%I #8 Mar 08 2020 08:39:13
%S 1,2,6,14,90,182,7686,15374,1383750,19372514,10577393190,21154786382,
%T 2438935322096070,4877870644192142,224977149851430019446,
%U 286620888910721844775478,396611655030211352708069066250,793223310060422705416138132502,8436334593920261958919014477018674175558
%N a(1) = 1; a(n+1) = Product_{d|n} (1 + a(d)).
%t a[1] = 1; a[n_] := a[n] = Product[1 + a[d], {d, Divisors[n - 1]}]; Table[a[n], {n, 1, 19}]
%Y Cf. A007018, A020696, A066843, A068334.
%K nonn
%O 1,2
%A _Ilya Gutkovskiy_, Mar 08 2020
|
