%I #49 Sep 08 2022 08:45:38
%S 1,14,124,1016,8176,65504,524224,4194176,33554176,268434944,
%T 2147482624,17179867136,137438949376,1099511619584,8796093005824,
%U 70368744144896,562949953355776,4503599627239424,36028797018701824,288230376151187456
%N Numbers whose binary representation is the concatenation of 2n-1 digits 1 and n-1 digits 0.
%C a(n) is the number whose binary representation is A147589(n).
%H Nathaniel Johnston, <a href="/A147590/b147590.txt">Table of n, a(n) for n = 1..500</a>
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (10,-16).
%F a(n) = A147537(n)/2.
%F From _R. J. Mathar_, Jul 13 2009: (Start)
%F a(n) = 8^n/4 - 2^(n-1) = A083332(2n-2).
%F a(n) = 10*a(n-1) - 16*a(n-2).
%F G.f.: x*(1+4*x)/((1-2*x)*(1-8*x)). (End)
%F From _César Aguilera_, Jul 26 2019: (Start)
%F Lim_{n->infinity} a(n)/a(n-1) = 8;
%F a(n)/a(n-1) = 8 + 6/A083420(n). (End)
%F E.g.f.: (1/4)*(exp(2*x)*(-2 + exp(6*x)) + 1). - _Stefano Spezia_, Aug 05 2019
%F a(n) = A020540(n - 1)/4. - _Jon Maiga_, Aug 05 2019
%e 1_10 is 1_2;
%e 14_10 is 1110_2;
%e 124_10 is 1111100_2;
%e 1016_10 is 1111111000_2.
%p seq(8^n/4-2^(n-1),n=1..25); # _Nathaniel Johnston_, Apr 30 2011
%t LinearRecurrence[{10,-16},{1,14},30] (* _Harvey P. Dale_, Oct 10 2014 *)
%t Table[8^n / 4 - 2^(n - 1), {n, 25}] (* _Vincenzo Librandi_, Jul 27 2019 *)
%o (Magma) [8^n/4-2^(n-1): n in [1..25]]; // _Vincenzo Librandi_, Jul 27 2019
%o (PARI) vector(25, n, 2^(n-2)*(4^n-2)) \\ _G. C. Greubel_, Jul 27 2019
%o (Sage) [2^(n-2)*(4^n-2) for n in (1..25)] # _G. C. Greubel_, Jul 27 2019
%o (GAP) List([1..25], n-> 2^(n-2)*(4^n-2)); # _G. C. Greubel_, Jul 27 2019
%Y Cf. A020540, A138118, A147537, A147589.
%K base,easy,nonn
%O 1,2
%A _Omar E. Pol_, Nov 08 2008
%E More terms from _R. J. Mathar_, Jul 13 2009
%E Typo in a(12) corrected by _Omar E. Pol_, Jul 20 2009