%I #39 Sep 08 2022 08:45:03
%S 1,6,23,76,237,722,2179,6552,19673,59038,177135,531428,1594309,
%T 4782954,14348891,43046704,129140145,387420470,1162261447,3486784380,
%U 10460353181,31381059586,94143178803,282429536456,847288609417
%N A column and diagonal of A060187.
%C Sums of rows of the numerators and of the denominators of the redundant Stern-Brocot structure A152975/A152976: a(n+2) = Sum_{k=2^n..(2^(n+1) -1)} A152975(k) = Sum_{k=2^n..(2^(n+1) -1)} A152976(k). - _Reinhard Zumkeller_, Dec 22 2008
%H Vincenzo Librandi, <a href="/A060188/b060188.txt">Table of n, a(n) for n = 2..2000</a>
%H P. A. MacMahon, <a href="https://doi.org/10.1112/plms/s2-19.1.305">The divisors of numbers</a>, Proc. London Math. Soc., (2) 19 (1920), 305-340; Coll. Papers II, pp. 267-302.
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (5,-7,3).
%F a(n) = 3^(n-1) - n = A061980(n-1, 2). - _Henry Bottomley_, May 24 2001
%F From _Paul Barry_, Jun 24 2003: (Start)
%F With offset 0, this is 3^(n+1) - n - 2.
%F Partial sums of A048473. (End)
%F From _Colin Barker_, Dec 19 2012: (Start)
%F a(n) = 5*a(n-1) - 7*a(n-2) + 3*a(n-3).
%F G.f.: x^2*(1 + x)/((1-x)^2*(1-3*x)). (End)
%F E.g.f.: (exp(3*x) - 3*x*exp(x) - 1)/3. - _Wolfdieter Lang_, Apr 17 2017
%p a[0]:=1:for n from 1 to 24 do a[n]:=(4*a[n-1]-3*a[n-2]+2) od: seq(a[n], n=0..24); # _Zerinvary Lajos_, Jun 08 2007
%t Table[3^(n-1) -n, {n,2,30}] (* _Vladimir Joseph Stephan Orlovsky_, Nov 15 2008 *)
%o (Magma) [3^(n-1)-n: n in [2..30]]; // _Vincenzo Librandi_, Sep 05 2011
%o (Sage) [3^(n-1) -n for n in (2..32)] # _G. C. Greubel_, Jan 07 2022
%Y Cf. A048473, A060187 (first differences).
%K nonn,easy
%O 2,2
%A _N. J. A. Sloane_, Mar 20 2001
%E More terms from _Vladeta Jovovic_, Mar 20 2001
|