%I #28 Aug 27 2024 18:14:13
%S 0,1,50,2451,120100,5884901,288360150,14129647351,692352720200,
%T 33925283289801,1662338881200250,81454605178812251,
%U 3991275653761800300,195572507034328214701,9583052844682082520350,469569589389422043497151,23008909880081680131360400
%N a(n) = (49^n - 1)/48.
%C Partial sums of powers of 49 (A087752).
%H Vincenzo Librandi, <a href="/A218753/b218753.txt">Table of n, a(n) for n = 0..600</a>
%H <a href="/index/Par#partial">Index entries related to partial sums</a>
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (50,-49)
%F G.f.: x/((1-x)*(1-49*x)). - _Vincenzo Librandi_, Nov 08 2012
%F a(n) = 50*a(n-1) - 49*a(n-2) with a(0)=0, a(1)=1. - _Vincenzo Librandi_, Nov 08 2012
%F a(n) = 49*a(n-1) + 1 with a(0)=0. - _Vincenzo Librandi_, Nov 08 2012
%F a(n) = floor(49^n/48). - _Vincenzo Librandi_, Nov 08 2012
%F E.g.f.: exp(25*x)*sinh(24*x)/24. - _Elmo R. Oliveira_, Aug 27 2024
%t LinearRecurrence[{50, -49}, {0, 1}, 30] (* _Vincenzo Librandi_, Nov 08 2012 *)
%t Join[{0},Accumulate[49^Range[0,20]]] (* _Harvey P. Dale_, Apr 14 2023 *)
%o (PARI) A218753(n)=49^n\48
%o (Maxima) A218753(n):=floor(49^n/48)$ makelist(A218753(n),n,0,30); /* _Martin Ettl_, Nov 05 2012 */
%o (Magma) [n le 2 select n-1 else 50*Self(n-1) - 49*Self(n-2): n in [1..20]]; // _Vincenzo Librandi_, Nov 08 2012
%Y Cf. A000225, A003462, A002450, A003463, A003464, A023000, A023001, A002452, A002275, A016123, A016125, A091030, A135519, A135518, A131865, A091045, A218721, A218722, A064108, A218724-A218734, A132469, A218736-A218752, A133853, A094028, A218723.
%Y Cf. A087752.
%K nonn,easy
%O 0,3
%A _M. F. Hasler_, Nov 04 2012