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

1, 4, 40, 612, 11976, 276836, 7336248, 219610532, 7331824360, 269576919908, 10796426089880, 466904884431268, 21658080409800264, 1071807203930733668, 56328256034260866296, 3131089417758323092388

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

Crossrefs

Column k=15 of A162663.

Sequence in context: A128573 A052675 A141010 * A365570 A365587 A090359

Adjacent sequences: A141008 A141009 A141010 * A141012 A141013 A141014

Keyword

nonn

Author

R. J. Mathar, Jul 11 2008

Status

approved