%I #8 Nov 05 2019 07:23:24
%S 1,1,5,17,57,189,613,1949,6097,18825,57525,174353,525049,1573077,
%T 4693909,13960805,41415089,122603341,362343053,1069436317,3152995209,
%U 9287942097,27341397469,80443393889,236581555233,695561538977
%N a(n) = T(n,2n-6), T given by A027023.
%H G. C. Greubel, <a href="/A027030/b027030.txt">Table of n, a(n) for n = 3..750</a>
%p T:= proc(n, k) option remember;
%p if k<3 or k=2*n then 1
%p else add(T(n-1, k-j), j=1..3)
%p fi
%p end:
%p seq(T(n,2*n-6), n=3..30); # _G. C. Greubel_, Nov 05 2019
%t T[n_, k_]:= T[n, k]= If[n<0, 0, If[k<3 || k==2*n, 1, Sum[T[n-1, k-j], {j, 3}]]]; Table[T[n, 2*n-6], {n,3,30}] (* _G. C. Greubel_, Nov 05 2019 *)
%o (Sage)
%o @CachedFunction
%o def T(n, k):
%o if (k<3 or k==2*n): return 1
%o else: return sum(T(n-1, k-j) for j in (1..3))
%o [T(n, 2*n-6) for n in (3..30)] # _G. C. Greubel_, Nov 04 2019
%K nonn
%O 3,3
%A _Clark Kimberling_