%I #10 May 06 2015 11:54:21
%S 1,-1,2,-9,74,-955,17744,-448077,14751974,-613569711,31452344252,
%T -1947832408225,143356013568338,-12366684481981635,
%U 1235842203066704648,-141628365906835323573,18449654196553852968254
%N Recurrence: a(n) = -Sum[i=0..n-1, a(i)*C(n+1,i) ], a(0)=1.
%H Vaclav Kotesovec, <a href="/A103996/b103996.txt">Table of n, a(n) for n = 0..268</a>
%F a(n) ~ (-1)^n * c * n^(2*n+4/3) / (2^n * exp(2*n)), where c = 6.48036478570177035603430551468143689346603193431525230833621534239220049... . - _Vaclav Kotesovec_, May 06 2015
%t nmax = 30; aa = ConstantArray[0,nmax+1]; aa[[1]] = 1; Do[aa[[n+1]]=-Sum[Binomial[n+1,k]*aa[[k+1]],{k,0,n-1}],{n,1,nmax}]; aa (* _Vaclav Kotesovec_, May 06 2015 *)
%Y Cf. A256006.
%K sign
%O 0,3
%A _Ralf Stephan_, Feb 24 2005
%E Offset changed to 0 by _Vaclav Kotesovec_, May 06 2015