%I #12 May 22 2017 07:51:57
%S 1,3,6,12,31,83,233,661,1893,5445,15720,45510,132069,384049,1118822,
%T 3264644,9539789,27913085,81769238,239794424,703906721,2068153901,
%U 6081507833,17896695833,52703944967,155310270103,457956633828,1351132539606,3988457429607
%N a(n) = Sum_{k = 1..n} T(k,k-1), where T is the array defined in A024996.
%H G. C. Greubel, <a href="/A026079/b026079.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A025179(n) + 2, n>2.
%t Join[{1, 3}, Table[Sum[ Binomial[n, 2*k]*Binomial[2*k + 1, k + 1], {k, 0, Floor[n/2]}] + 2, {n,2,50}]] (* _G. C. Greubel_, May 22 2017 *)
%o (PARI) concat([1,3], for(n=2,50, print1(2 + sum(k=0,floor(n/2), binomial(n, 2*k)*binomial(2*k+1, k+1)), ", "))) \\ _G. C. Greubel_, May 22 2017
%Y Cf. A025179.
%K nonn
%O 1,2
%A _Clark Kimberling_