editing
approved
editing
approved
Cf. A256006.
approved
editing
Vaclav Kotesovec, <a href="/A103996/b103996_1.txt">Table of n, a(n) for n = 0..268</a>
editing
approved
Vaclav Kotesovec, <a href="/A103996/b103996_1.txt">Table of n, a(n) for n = 10..268</a>
Offset changed to 0 by Vaclav Kotesovec, May 06 2015
1,0,3
a(n) ~ (-1)^n * c * n^(2*n+4/3) / (2^n * exp(2*n)), where c = 6.48036478570177035603430551468143689346603193431525230833621534239220049... . - Vaclav Kotesovec, May 06 2015
Vaclav Kotesovec, <a href="/A103996/b103996.txt">Table of n, a(n) for n = 1..268</a>
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 *)
approved
editing
_Ralf Stephan, _, Feb 24 2005
Recurrence: a(n) = -Sum[i=0..n-1, a(i)*C(n+1,i) ], a(0)=1.
1, -1, 2, -9, 74, -955, 17744, -448077, 14751974, -613569711, 31452344252, -1947832408225, 143356013568338, -12366684481981635, 1235842203066704648, -141628365906835323573, 18449654196553852968254
1,3
sign
Ralf Stephan, Feb 24 2005
approved