OFFSET
0,2
COMMENTS
Conjecture: Limit n->infinity a(n)^(1/n) = 3. - Vaclav Kotesovec, Jun 29 2015
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..850
FORMULA
G.f. satisfies: A(x) = A( x^2/(1-2x) )/(1-2x). Recurrence: a(n) = Sum_{k=0..floor(n/2)} C(n-k,k)*2^(n-2k)*a(k). - Paul D. Hanna, Jul 10 2006
MATHEMATICA
m = 27; A[_] = 1; Do[A[x_] = A[x^2/(1-2x)]/(1-2x) + O[x]^m // Normal, {m}]; CoefficientList[A[x], x] (* Jean-François Alcover, Nov 03 2019 *)
PROG
(PARI) T(n, k)=if(n<0||k>n, 0, if(n==0&k==0, 1, if(n==1&k<=1, 2, if(k==n, T(n, 0), 2*T(n-1, k)+T(n-1, k+1)))))
a(n)=T(n, 0)
for(n=0, 30, print1(a(n), ", "))
(PARI) a(n)=local(A=1+x); for(i=0, n\2, A=subst(A, x, x^2/(1-2*x+x*O(x^n)))/(1-2*x)); polcoeff(A, n) \\ Paul D. Hanna, Jul 10 2006
(PARI) /* Using Recurrence: */
a(n)=if(n==0, 1, sum(k=0, n\2, binomial(n-k, k)*2^(n-2*k)*a(k)))
for(n=0, 30, print1(a(n), ", ")) \\ Paul D. Hanna, Jul 10 2006
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Mar 04 2004
STATUS
approved