|
%I #14 Feb 12 2014 21:09:11
%S 1,5,73,1348,27811,612728,14103464,334974405,8146520511,201822398131,
%T 5074951075766,129185072614240,3322359273912432,86191998671455630,
%U 2252923797781463037,59273686760263160137,1568440076774389559527,41713725234702452284249
%N T(3n,2n), where T is the array in A047110.
%H Alois P. Heinz, <a href="/A127167/b127167.txt">Table of n, a(n) for n = 0..200</a>
%F G.f.: A(x) where (161051*x^2 +1088*x -64) * A(x)^10 + (4600*x -320) * A(x)^9 + (7276*x -624) * A(x)^8 + (7830*x -512) * A(x)^7 + (6189*x +68) * A(x)^6 + (2177*x + 540) * A(x)^5 + 535*A(x)^4 + 278*A(x)^3 + 84*A(x)^2 + 14*A(x) + 1 = 0. - _Mark van Hoeij_, May 01 2013
%e T(h,k) counts lattice paths restricted as in A047110 by the line y=2x/3, so that the numbers T(3n,2n) are of interest.
%e T(3,2) counts these 5 paths: RRRUU, RRURU, URRRU, URURR, UURRR.
%p T:= proc(h, k) option remember;
%p `if`([h, k]=[0, 0], 1, `if`(h<0 or k<0, 0, T(h-1, k)+
%p `if`(3*k>2*h and 3*(k-1)<2*h, 0, T(h, k-1))))
%p end:
%p a:= n-> T(3*n, 2*n):
%p seq (a(n), n=0..30); # _Alois P. Heinz_, Apr 04 2012
%p series(RootOf((161051*x^2+1088*x-64)*A^10 + (4600*x-320)*A^9 + (7276*x-624)*A^8 + (7830*x-512)*A^7 + (6189*x+68)*A^6 + (2177*x+540)*A^5 +535*A^4 +278*A^3 +84*A^2 +14*A +1, A), x=0, 30); # _Mark van Hoeij_, May 01 2013
%Y Cf. A047110.
%K nonn
%O 0,2
%A _Clark Kimberling_, Jan 06 2007
%E More terms from _Alois P. Heinz_, Apr 04 2012
|
