A141010 E.g.f. exp(sum_{d|M} (exp(d*x)-1)/d), M=14.

1, 4, 40, 602, 11384, 253698, 6495616, 187940402, 6055160152, 214444348674, 8261055193008, 343357357970866, 15298169514407880, 726752780487465922, 36642712015230282784, 1952976182776961017138

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, 14], {n, 0, 30}] (* Vincenzo Librandi, Dec 12 2012 *)

Crossrefs

Column k=14 of A162663.

Sequence in context: A291817 A128573 A052675 * A141011 A365570 A365587

Adjacent sequences: A141007 A141008 A141009 * A141011 A141012 A141013

Keyword

nonn

Author

R. J. Mathar, Jul 11 2008

Status

approved