%I #5 Apr 02 2019 15:32:56
%S 1,1,2,2,4,5,8,11,18,25,40,59,90,137,210,319,492,754,1164,1798,2786,
%T 4317,6710,10438,16266,25377,39650,62013,97108,152212,238822,375058,
%U 589520,927365,1459960,2300097,3626211,5720649,9030450,14263675
%N Sum(floor(C(n-k,k)/(k+1)),k=0..n/2).
%C Sums of diagonal entries in A011847
%F a(n) = sum(floor(C(n-k, k)/(k+1)), k=0..n/2);
%p a:=n->add(floor(C(n-k,k)/(k+1)),k=0..n/2);
%t Table[Sum[Floor[Binomial[n-k,k]/(k+1)],{k,0,n/2}],{n,40}] (* _Harvey P. Dale_, Apr 02 2019 *)
%Y Cf. A011847.
%K nonn
%O 1,3
%A _Mike Zabrocki_, Jul 08 2004
|