|
|
A066178
|
|
Number of binary bit strings of length n with no block of 8 or more 0's. Nonzero heptanacci numbers, A122189.
|
|
26
|
|
|
1, 1, 2, 4, 8, 16, 32, 64, 127, 253, 504, 1004, 2000, 3984, 7936, 15808, 31489, 62725, 124946, 248888, 495776, 987568, 1967200, 3918592, 7805695, 15548665, 30972384, 61695880, 122895984, 244804400, 487641600
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
Analogous bit string description and o.g.f. (1-x)/(1-2x+x^{k+1}) works for nonzero k-nacci numbers.
Compositions of n into parts <= 7. - Joerg Arndt, Aug 06 2012
|
|
LINKS
|
|
|
FORMULA
|
O.g.f.: 1/(1 - x - x^2 - x^3 - x^4 - x^5 - x^6 - x^7).
a(n) = Sum_{i=n-7..n-1} a(i).
a(n) = round((r-1)/((t+1)*r - 2*t) * r^(n-1)), where r is the heptanacci constant, the real root of the equation x^(t+1) - 2*x^t + 1 = 0 which is greater than 1. The formula could also be used for a k-step Fibonacci sequence if r is replaced by the k-bonacci constant, as in A000045, A000073, A000078, A001591, A001592. - Zhao Hui Du, Aug 24 2008
|
|
MATHEMATICA
|
a[0] = a[1] = 1; a[2] = 2; a[3] = 4; a[4] = 8; a[5] = 16; a[6] = 32; a[7] = 64; a[n_] := 2*a[n - 1] - a[n - 8]; Array[a, 31, 0]
CoefficientList[ Series[(1 - x)/(1 - 2 x + x^8), {x, 0, 30}], x]
LinearRecurrence[{1, 1, 1, 1, 1, 1, 1}, {1, 1, 2, 4, 8, 16, 32}, 40] (* Harvey P. Dale, Nov 16 2014 *)
|
|
CROSSREFS
|
Row 7 of arrays A048887 and A092921 (k-generalized Fibonacci numbers).
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|