%I #3 Mar 30 2012 17:26:17
%S 1,8,23,17,-4,3,-4,5,-10,16,-34,69,-150,336,-777,1833,-4422,10852,
%T -27053,68354,-174820,451966,-1179915,3107551,-8250149,22063698,
%U -59402336,160918012,-438405420,1200699624,-3304583628,9136432371,-25367772162,70715532758,-197863773109,555569907134
%N Floor of expansion (1+Pi*x)^e.
%e [(1+Pi*x)^e=1+e*Pi*x+(1/2)*(e-1)*e*Pi^2*x^2+...=1+8.5*x+23.04*x^2+...=>
%e (1,8,23...}.
%t ns=Normal[With[{m=50}, s=Series[(1+Pi x)^E, {x, 0, m}]]]; A109271=Floor[ CoefficientList[ns, x]]
%Y Cf. A075190, A109272.
%K sign
%O 1,2
%A _Zak Seidov_, Jun 24 2005
|