%I #35 Sep 08 2022 08:44:45
%S 5,9,16,28,49,86,151,265,465,816,1432,2513,4410,7739,13581,23833,
%T 41824,73396,128801,226030,396655,696081,1221537,2143648,3761840,
%U 6601569,11584946,20330163,35676949,62608681,109870576,192809420,338356945,593775046,1042002567
%N Pisot sequences E(5,9), P(5,9).
%H Colin Barker, <a href="/A020713/b020713.txt">Table of n, a(n) for n = 0..1000</a>
%H Shalosh B. Ekhad, N. J. A. Sloane and Doron Zeilberger, <a href="https://arxiv.org/abs/1609.05570">Automated Proof (or Disproof) of Linear Recurrences Satisfied by Pisot Sequences</a>, arXiv:1609.05570 [math.NT], 2016.
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (2,-1,1).
%F a(n) = 2*a(n-1) - a(n-2) + a(n-3) (holds at least up to n = 1000 but is not known to hold in general).
%F Empirical g.f.: (5-x+3*x^2) / (1-2*x+x^2-x^3). - _Colin Barker_, Jun 05 2016
%F Theorem: E(5,9) satisfies a(n) = 2 a(n - 1) - a(n - 2) + a(n - 3) for n>=3. Proved using the PtoRv program of Ekhad-Sloane-Zeilberger, and implies the above conjectures. - _N. J. A. Sloane_, Sep 09 2016
%F a(n) = (-1)^n * A099529(n+6). - _Jinyuan Wang_, Mar 10 2020
%t RecurrenceTable[{a[0] == 5, a[1] == 9, a[n] == Ceiling[a[n - 1]^2/a[n - 2]-1/2]}, a, {n, 0, 40}] (* _Bruno Berselli_, Feb 04 2016 *)
%t LinearRecurrence[{2,-1,1},{5,9,16},40] (* _Harvey P. Dale_, Aug 03 2021 *)
%o (Magma) Iv:=[5, 9]; [n le 2 select Iv[n] else Ceiling(Self(n-1)^2/Self(n-2)-1/2): n in [1..40]]; // _Bruno Berselli_, Feb 04 2016
%o (PARI) lista(nn) = {print1(x = 5, ", ", y = 9, ", "); for (n=1, nn, z = ceil(y^2/x -1/2); print1(z, ", "); x = y; y = z;);} \\ _Michel Marcus_, Feb 04 2016
%Y This is a subsequence of A005314.
%Y See A008776 for definitions of Pisot sequences.
%Y Cf. A099529.
%K nonn
%O 0,1
%A _David W. Wilson_