The submissions stack has been unacceptably high for several months now. Please voluntarily restrict your submissions and please help with the editing. (We don't want to have to impose further limits.)
Table of n, a(n) for n=0..62.
a034871 n = a034871_list !! n
a034871_list = concat $ map ([1, 1] ^) [1, 3..]
instance Num a => Num [a] where
fromInteger k = [fromInteger k]
(p:ps) + (q:qs) = p + q : ps + qs
ps + qs = ps ++ qs
(p:ps) * qs'@(q:qs) = p * q : ps * qs' + [p] * qs
_ * _ = 
-- Reinhard Zumkeller, Apr 02 2011
Cf. A007318, A034870.
Sequence in context: A196493 A251634 A196989 * A015109 A157636 A086626
Adjacent sequences: A034868 A034869 A034870 * A034872 A034873 A034874
N. J. A. Sloane.