|
%I #18 Sep 08 2022 08:45:28
%S 0,4,32,228,1600,11204,78432,549028,3843200,26902404,188316832,
%T 1318217828,9227524800,64592673604,452148715232,3165041006628,
%U 22155287046400,155087009324804,1085609065273632,7599263456915428,53194844198408000,372363909388856004,2606547365721992032
%N Numbers whose base 7 representation is 4444....4.
%H G. C. Greubel, <a href="/A125823/b125823.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (8,-7).
%F a(n) = 2*(7^(n-1) - 1)/3 = 4*A023000(n-1).
%F a(n) = 7*a(n-1) + 4, with a(1)=0. - _Vincenzo Librandi_, Sep 30 2010
%F From _G. C. Greubel_, Aug 03 2019: (Start)
%F G.f.: 4*x^2/((1-x)*(1-7*x)).
%F E.g.f.: 2*(exp(7*x) - exp(x))/3. (End)
%e Base 7.................decimal
%e 0.........................0
%e 4.........................4
%e 44.......................32
%e 444.....................228
%e 4444...................1600
%e 44444.................11204
%e 444444................78432
%e 4444444..............549028
%e 44444444............3843200
%e etc....................etc...
%p seq(4*(7^n-1)/6, n=0..21);
%t 2*(7^(Range[30]-1) -1)/3 (* _G. C. Greubel_, Aug 03 2019 *)
%o (PARI) vector(30, n, 2*(7^(n-1) -1)/3) \\ _G. C. Greubel_, Aug 03 2019
%o (Magma) [2*(7^(n-1) -1)/3: n in [1..30]]; // _G. C. Greubel_, Aug 03 2019
%o (Sage) [2*(7^(n-1) -1)/3 for n in (1..30)] # _G. C. Greubel_, Aug 03 2019
%o (GAP) List([1..30], n-> 2*(7^(n-1) -1)/3); # _G. C. Greubel_, Aug 03 2019
%Y Cf. A023000.
%K easy,nonn
%O 1,2
%A _Zerinvary Lajos_, Feb 03 2007
%E Terms a(21) onward added by _G. C. Greubel_, Aug 03 2019
| 