OFFSET
0,2
LINKS
Geoffrey Critzer and Alois P. Heinz, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (3,10,26,49,81,114,148,170,181,174,155,123,90,57,32,14,5).
FORMULA
G.f.: -(x^6+x^5+x^4+x^3+x^2+x+1) *(x+1)*(x^2-x+1) *(x^2+x+1) *(x^4+x^3+x^2+x+1) *(x^2+1) / (5*x^17 +14*x^16 +32*x^15 +57*x^14 +90*x^13 +123*x^12 +155*x^11 +174*x^10 +181*x^9 +170*x^8 +148*x^7 +114*x^6 +81*x^5 +49*x^4 +26*x^3 +10*x^2 +3*x-1).
MAPLE
b:= proc(n, k, c, t) option remember;
`if`(n=0, 1, add(`if`(c=t and j=c, 0,
b(n-1, k, j, 1+`if`(j=c, t, 0))), j=1..k))
end:
a:= n-> b(n, 6, 0$2):
seq(a(n), n=0..30);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Geoffrey Critzer and Alois P. Heinz, May 19 2014
STATUS
approved