OFFSET
2,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 2..200
MAPLE
with(numtheory): M := proc (n) options operator, arrow: (sum((-1)^j*binomial(n+1, j)*binomial(2*n-3*j, n), j = 0 .. floor((1/3)*n)))/(n+1) end proc: seq(divisors(M(i))[tau(M(i))-1], i = 2 .. 32); # Emeric Deutsch, Jan 18 2009
MATHEMATICA
mot[0] = 1; mot[n_] := mot[n] = mot[n - 1] + Sum[mot[k] * mot[n - 2 - k], {k, 0, n - 2}]; lpd[n_] := n / FactorInteger[n][[1, 1]]; Table[lpd[mot[n]], {n, 2, 30}] (* Amiram Eldar, Nov 26 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Jan 16 2009
EXTENSIONS
Extended by Emeric Deutsch, Jan 18 2009
a(23)-a(27) and a(29)-a(30) corrected by Amiram Eldar, Nov 26 2019
STATUS
approved