|
|
A082587
|
|
G.f.: (3+x+x^2+2*x^3)/(1-x^2-x^4).
|
|
1
|
|
|
3, 1, 4, 3, 7, 4, 11, 7, 18, 11, 29, 18, 47, 29, 76, 47, 123, 76, 199, 123, 322, 199, 521, 322, 843, 521, 1364, 843, 2207, 1364, 3571, 2207, 5778, 3571, 9349, 5778, 15127, 9349, 24476, 15127, 39603, 24476, 64079, 39603, 103682, 64079, 167761, 103682, 271443, 167761
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
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 *)
|
|
PROG
|
(Haskell)
import Data.List (transpose)
a082587 n = a082587_list !! n
a082587_list = concat $ transpose [tail a000204_list, a000204_list]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|