%I #22 Jul 09 2018 23:21:16
%S 2,6,14,34,78,182,414,942,2110,4702,10366,22718,49406,106878,229886,
%T 492286,1049598,2229758,4720638,9964542,20975614,44046334,92282878,
%U 192950270,402669566,838885374,1744863230,3623927806,7516258302,15569354750,32212385790
%N The sum over all bitstrings b of length n of the number of runs in b not immediately followed by a longer run.
%C A run is a maximal subsequence of (possibly just one) identical bits.
%H Vincenzo Librandi, <a href="/A208902/b208902.txt">Table of n, a(n) for n = 1..1000</a>
%H Aruna Gabhe, <a href="https://www.jstor.org/stable/10.4169/amer.math.monthly.119.02.161">Problem 11623</a>, Am. Math. Monthly 119 (2012) 161.
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (5,-6,-6,16,-8).
%F a(n) = 2^n * (2 + (n - 1)/2 - (1/2)^(n - 1) - 2 (1 - (1/2)^floor(n/2)) + (1/2)^(floor(n/2) + 1) (1 + (-1)^n)).
%F a(n) = A208903(n) + 2.
%F a(n) = 5*a(n-1) - 6*a(n-2) - 6*a(n-3) + 16*a(n-4) - 8*a(n-5), a(1) = 2, a(2) = 6, a(3) = 14, a(4) = 34, a(5) = 78.
%F G.f.: (2 - 4*x - 4*x^2 + 12*x^3 - 4*x^4)/(1 - 5*x + 6*x^2 + 6*x^3 - 16*x^4 + 8*x^5).
%e When n=3, 000,111 each have 1 such run, 101,010 each have 3, 100,011 each have 1, 001, 110 each have 2, summing these gives 2+6+2+4=14 so a(3) = 14.
%t Table[2^n*(2 + (n - 1)/2 - (1/2)^(n - 1) - 2*(1 - (1/2)^Floor[n/2]) + (1/2)^(Floor[n/2] + 1) (1 + (-1)^n)), {n, 1, 40}]
%t LinearRecurrence[{5, -6, -6, 16, -8}, {2, 6, 14, 34, 78}, 40]
%Y Cf. A056453, A208900, A208901, A208903.
%K nonn,easy
%O 1,1
%A _David Nacin_, Mar 03 2012