OFFSET
0,6
LINKS
David A. Corneth, Table of n, a(n) for n = 0..4992 (terms <= 10^1000)
MAPLE
A010756 := proc(d)
local a, n, m;
a := 0 ;
for n from 0 to d do
m := d-n ;
if m >= 1+floor(d/3) then
a := a+binomial(n, m) ;
end if;
end do:
a ;
end proc: # R. J. Mathar, Feb 08 2016
MATHEMATICA
A010756[d_] := Module[{a, n, m}, a = 0; For[n = 0, n <= d, n++, m = d - n; If[m >= 1 + Floor[d/3], a = a + Binomial[n, m]]]; a]; Array[A010756, 42, 0] (* Jean-François Alcover, Dec 12 2016, after R. J. Mathar *)
PROG
(PARI) a(n) = {if(n==0, return(0)); my(u = (2*n - 1)\3); sum(i = 1, u, binomial(i, n-i))} \\ David A. Corneth, Apr 03 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved