%I #27 Sep 08 2022 08:45:24
%S 1,3,5,10,19,37,72,141,277,546,1079,2137,4240,8425,16761,33378,66523,
%T 132669,264728,528469,1055341,2108098,4212015,8417265,16823584,
%U 33629457,67230257,134414146,268753267,537385141,1074573864,2148829917
%N a(n) = 2^n + Fibonacci(n).
%C a(3n) is even if n>0. - _Robert G. Wilson v_, Sep 06 2002
%C 3 divides a(8n+1) and a(8n-1). - _Enrique PĂ©rez Herrero_, Dec 29 2010
%H Reinhard Zumkeller, <a href="/A117591/b117591.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (3,-1,-2).
%F G.f. (1-3*x^2)/((1-x-x^2)*(1-2*x)).
%F a(n) = A000079(n+1) - A099036(n) = A099036(n) + 2 * A000045(n). - _Reinhard Zumkeller_, Aug 15 2013
%t Table[f=Fibonacci[n];2^n+f,{n,1,40,1}] (* _Vladimir Joseph Stephan Orlovsky_, Jul 23 2008 *)
%t CoefficientList[Series[(1-3x^2)/((1-x-x^2)(1-2x)), {x,0,35}], x] (* _Vincenzo Librandi_, Nov 02 2014 *)
%o (Haskell)
%o a117591 n = a117591_list !! n
%o a117591_list = zipWith (+) a000079_list a000045_list
%o -- _Reinhard Zumkeller_, Aug 15 2013
%o (Magma) [2^n+Fibonacci(n): n in [0..40]]; // _Vincenzo Librandi_, Nov 02 2014
%o (PARI) a(n)=2^n + fibonacci(n) \\ _Charles R Greathouse IV_, Oct 07 2016
%o (Sage) [2^n +fibonacci(n) for n in (0..40)] # _G. C. Greubel_, Jul 05 2021
%Y Cf. A000045, A000079, A001611, A074824, A099036, A212262.
%K nonn,easy
%O 0,2
%A _Franklin T. Adams-Watters_, Apr 04 2006