login
Recurrence: a(n) = -Sum[i=0..n-1, a(i)*C(n+1,i) ], a(0)=1.
2

%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