With the function
P[n_] := Module[{s,t} ,
s = Sum[z^k/k!, {k, 0,Infinity}];
t = Series[s^x, {z, 0, n+1}];
f[x_] = n!^2 Coefficient[t, z, n]
]
I get for
Map[P[3], {0, 1}]
{(6 x^3)[0],(6 x^3)[1]}
What I want is {0, 6}, the x evaluated at {0,1}. How to do it right?