OFFSET
0,6
COMMENTS
Motivation: The exponential transform applied n times to the constant function 1 evaluated at k was studied by E. T. Bell (see A144150).
LINKS
Discussion on seqcomp: A little challenge
EXAMPLE
n\k [0][1][2] [3] [4] [5] [6]
[0] 0, 1, 2, 3, 4, 5, 6
[1] 1, 1, 3, 10, 41, 196, 1057 [A000248]
[2] 1, 1, 4, 20, 127, 967, 8549 [A007550]
[3] 1, 1, 5, 33, 280, 2883, 34817
[4] 1, 1, 6, 49, 518, 6689, 101841
[5] 1, 1, 7, 68, 859, 13310, 243946
[6] 1, 1, 8, 90, 1321, 23851, 510502
column3(n) = (3*n^2 + 11*n + 6)/2!
column4(n) = (18*n^3 + 93*n^2 + 111*n + 24)/3!
column5(n) = (180*n^4 + 1180*n^3 + 2160*n^2 + 1064*n + 120)/4!
column6(n) = (2700*n^5+21225*n^4+51850*n^3+41835*n^2+8510*n+720)/5!
MAPLE
MATHEMATICA
exptr[p_] := Module[{g}, g[n_] := g[n] = Module[{k}, If[n == 0, 1, Sum[Binomial[n-1, k-1]*p[k]*g[n-k], {k, 1, n}]]]; g]; A209631[n_, k_] := Nest[exptr, Identity, n][k]; Table[A209631[n-k , k], {n, 0, 10}, {k, 0, n}] // Flatten (* Jean-François Alcover, Feb 27 2014, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Mar 11 2012
STATUS
approved