A062962 Number of divisors of n-th term of sequence a(n+1) = a(n)*(a(0) + ... + a(n)) (A001697).

1, 1, 2, 4, 12, 40, 160, 792, 9408, 783360, 55987200, 35610624000, 269007298560000

Offset

0,3

Links

Table of n, a(n) for n=0..12.

Formula

a(n) = A000005(A001697(n)). - Amiram Eldar, Feb 17 2019

Mathematica

a[0] = 1; a[1] = 1; a[n_] := a[n] = a[n - 1]^2*(1 + 1/a[n - 2]); Table[DivisorSigma[0, a[n]], {n, 0, 10}]  (* Amiram Eldar, Feb 17 2019 after Jean-François Alcover at A001697 *)

Prog

(PARI) a(n)=if(n<2, n >= 0, a(n-1)^2*(1+1/a(n-2)));
for(n=0, 11, print1(numdiv(a(n)), ", "))

Crossrefs

Cf. A000005, A001697.

Sequence in context: A215074 A215070 A188479 * A033472 A134983 A330679

Adjacent sequences: A062959 A062960 A062961 * A062963 A062964 A062965

Keyword

nonn,hard,more

Author

Jason Earls, Jul 22 2001

Extensions

a(11) from Amiram Eldar, Feb 17 2019

a(12) from Max Alekseyev, Feb 20 2024

Status

approved