OFFSET
0,1
LINKS
Robert Israel, Table of n, a(n) for n = 0..1200
MAPLE
a[0]:= 7: a[1]:= 43:
for i from 2 to 100 do
a[i]:= ceil(a[i-1]^2/a[i-2] - 1)
od:
seq(a[i], i=0..100); # Robert Israel, Sep 18 2015
MATHEMATICA
a = {7, 43}; Do[AppendTo[a, Floor[a[[n]]^2/a[[n - 1]]]], {n, 2, 22}];
a (* Michael De Vlieger, Sep 18 2015 *)
PROG
(PARI) T(a0, a1, maxn) = a=vector(maxn); a[1]=a0; a[2]=a1; for(n=3, maxn, a[n]=ceil(a[n-1]^2/a[n-2])-1); a
T(7, 43, 30) \\ Colin Barker, Feb 14 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(19)-a(22) from Michael De Vlieger, Sep 18 2015
STATUS
approved