OFFSET
3,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 3..400
FORMULA
MAPLE
b:= proc(n, k) option remember; `if`(n=0, 1,
add(b(n-j, k)*binomial(n, j), j=k..n))
end:
a:= n-> b(n, 3) -b(n, 4):
seq(a(n), n=3..30);
MATHEMATICA
With[{nn=30}, CoefficientList[Series[1/(2-Exp[x]+x+x^2/2)-1/(2-Exp[x]+ x+ x^2/2+ x^3/6), {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Feb 14 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Aug 04 2014
STATUS
approved