proposed
approved
proposed
approved
editing
proposed
a(n) = A000204(floor(n/2)) + 2 - n mod 2). - Reinhard Zumkeller, Aug 03 2013
approved
editing
editing
approved
CoefficientList[Series[(3+x+x^2+2x^3)/(1-x^2-x^4), {x, 0, 50}], x] (* or *) LinearRecurrence[{0, 1, 0, 1}, {3, 1, 4, 3}, 50] (* Harvey P. Dale, Apr 09 2023 *)
approved
editing
<a href="/index/Rec#order_04">Index to sequences with entries for linear recurrences with constant coefficients</a>, signature (0,1,0,1).
editing
approved
<a href="/index/ReaRec#recLCCorder_04">Index entries for to sequences related to with linear recurrences with constant coefficients</a>, signature (0,1,0,1).
nonn,easy
approved
editing
editing
approved
a(2*n) = A000204(n+2), a(2*n+1) = A000204(n+1); a(2*n+1) = a(2*n-1) for n > 0. Reinhard Zumkeller, Aug 03 2013
<a href="/index/Rea#recLCC">Index entries for sequences related to linear recurrences with constant coefficients</a>
<a href="/index/Rea#recLCC">Index entries for sequences related to linear recurrences with constant coefficients</a>
a(n) = A000204(floor(n/2)) + 2 - n mod 2). - Reinhard Zumkeller, Aug 03 2013
(Haskell)
import Data.List (transpose)
a082587 n = a082587_list !! n
a082587_list = concat $ transpose [tail a000204_list, a000204_list]
-- Reinhard Zumkeller, Aug 03 2013