STATUS
proposed
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A289078
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
STATUS
editing
proposed
PROG
(PARI) seq(n)={my(v=vector(n)); for(n=1, n, v[n] = 1 + sumdiv(n, d, binomial(v[n/d]+d-1, d))); v} \\ Andrew Howroyd, Aug 20 2018
STATUS
approved
editing
STATUS
editing
approved
LINKS
Alois P. Heinz, <a href="/A289078/b289078.txt">Table of n, a(n) for n = 1..2500</a>
STATUS
approved
editing
STATUS
editing
approved
MAPLE
with(numtheory):
a:= proc(n) option remember; 1 + add(
binomial(a(n/d)+d-1, d), d=divisors(n) minus {1})
end:
seq(a(n), n=1..60); # Alois P. Heinz, Jul 05 2017
STATUS
proposed
editing
STATUS
editing
proposed
FORMULA
a(n) = 1 + Sum_{d|n, d>1} Cbinomial(a(n/d)+d-1, d).