editing
approved
editing
approved
<a href="/index/Ph#Pisot">Index entries for Pisot sequences</a>
approved
editing
proposed
approved
editing
proposed
a[n_] := a[n] = Switch[n, 0, 2, 1, 7, _, 1 + Floor[a[n-1]^2/a[n-2]]];
a /@ Range[0, 40] (* Jean-François Alcover, Nov 16 2020, after Alois P. Heinz *)
approved
editing
editing
approved
D. W. Boyd, Linear recurrence relations for some generalized Pisot sequences, Advances in Number Theory ( Kingston ON, 1991) 333-340, Oxford Sci. Publ., Oxford Univ. Press, New York, 1993
D. W. Boyd, <a href="https://www.researchgate.net/profile/David_Boyd7/publication/262181133_Linear_recurrence_relations_for_some_gener
approved
editing
proposed
approved
editing
proposed
(PARI) S(a0, a1, maxn) = a=vector(maxn); a[1]=a0; a[2]=a1; for(n=3, maxn, a[n]=a[n-1]^2\a[n-2]+1); a
S(2, 7, 40) \\ Colin Barker, Feb 16 2016
approved
editing