%I #12 Mar 08 2020 18:51:56

%S 7,10,14,19,25,32,40,50,62,76,93,113,137,166,201,243,293,353,425,511,

%T 614,737,884,1060,1271,1524,1827,2190,2625,3146,3770,4517,5412,6484,

%U 7768,9306,11148,13354,15996,19160,22949,27487,32922,39431,47226,56561,67741,81130

%N Pisot sequence T(7,10), a(n) = floor(a(n-1)^2/a(n-2)).

%H Colin Barker, <a href="/A020752/b020752.txt">Table of n, a(n) for n = 0..1000</a>

%t nxt[{a_,b_}]:={b, Floor[b^2/a]}; NestList[nxt,{7,10},50][[All,1]] (* _Harvey P. Dale_, Mar 08 2020 *)

%o (PARI) pisotT(nmax, a1, a2) = {

%o a=vector(nmax); a[1]=a1; a[2]=a2;

%o for(n=3, nmax, a[n] = floor(a[n-1]^2/a[n-2]));

%o a

%o }

%o pisotT(50, 7, 10) \\ _Colin Barker_, Jul 29 2016

%Y See A008776 for definitions of Pisot sequences.

%K nonn

%O 0,1

%A _David W. Wilson_