%I #33 Sep 08 2022 08:45:48
%S 1,0,4,2,16,14,64,74,256,350,1024,1562,4096,6734,16384,28394,65536,
%T 117950,262144,484922,1048576,1979054,4194304,8034314,16777216,
%U 32491550,67108864,131029082,268435456,527304974,1073741824,2118785834,4294967296,8503841150
%N a(n) = 2^n - (1 - (-1)^n)*3^((n-1)/2).
%C Binomial transform of A077917, the signed variant of A127864.
%H Robert Israel, <a href="/A167784/b167784.txt">Table of n, a(n) for n = 0..3318</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (2,3,-6).
%F a(n) = A167936(n+1) - A167936(n).
%F a(2n) = A000302(n). a(2n+1) = 2*A005061(n).
%F a(n) = 2*a(n-1) + 3*a(n-2) - 6*a(n-3).
%F G.f.: (x-1)^2/((2*x-1)*(3*x^2-1)).
%F a(n+4) mod 9 = A153130(n+4) = A146501(n+2), n>=0.
%F a(n) mod 10 = 1, bar(0,4,2,6,4,4,4,6), where bar(...) denotes a periodically repeated sequence of 8 terms.
%F E.g.f.: exp(2*x) - (2/sqrt(3))*sinh(sqrt(3)*x). - _G. C. Greubel_, Jun 27 2016
%p seq(2^n - (1 - (-1)^n)*3^((n-1)/2), n=0..100); # _Robert Israel_, Apr 11 2019
%t LinearRecurrence[{2, 3, -6}, {1, 0, 4}, 40] (* Harvey P. Dale, Nov 29 2011 *)
%o (Magma) [Floor(2^n+((-1)^n-1)*3^(-1/2+1/2*n)): n in [0..40] ]; // _Vincenzo Librandi_, Aug 06 2011
%o Caution: this program gives incorrect results starting at n=103. - _Robert Israel_, Apr 11 2019
%Y Cf. A154383.
%K nonn,easy
%O 0,3
%A _Paul Curtz_, Nov 12 2009
%E Edited and extended by _R. J. Mathar_, Feb 27 2010
%E Incorrect b-file corrected by _Robert Israel_, Apr 11 2019
|