OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
MATHEMATICA
u[0, j_]: = 1; u[k_, j_]: = u[k, j] = Sum[Binomial[k-1, i-1]Plus@@(u[k-i, j]#^(i-1)&/@Divisors[j]), {i, k}]; Table[u[n, 9], {n, 0, 30}](* Vincenzo Librandi, Dec 12 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Jul 11 2008
STATUS
approved