|
%I #9 Oct 17 2017 14:34:12
%S 1,4,40,602,11384,253698,6495616,187940402,6055160152,214444348674,
%T 8261055193008,343357357970866,15298169514407880,726752780487465922,
%U 36642712015230282784,1952976182776961017138
%N E.g.f. exp(sum_{d|M} (exp(d*x)-1)/d), M=14.
%H Vincenzo Librandi, <a href="/A141010/b141010.txt">Table of n, a(n) for n = 0..200</a>
%t 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 *)
%Y Column k=14 of A162663.
%K nonn
%O 0,2
%A _R. J. Mathar_, Jul 11 2008
|
