A022036 Define the sequence T(a_0,a_1) by a_{n+2} is the greatest integer such that a_{n+2}/a_{n+1}<a_{n+1}/a_n for n >= 0. This is T(7,43).

7, 43, 264, 1620, 9940, 60989, 374211, 2296051, 14087908, 86439348, 530366956, 3254178965, 19966705347, 122509956183, 751685824132, 4612127828672, 28298688661016, 173632607265289, 1065359694467895, 6536740399587511, 40107557356899000, 246088426157852600, 1509927741297161799

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

Sequence in context: A240366 A329018 A003464 * A277670 A015451 A194779

Adjacent sequences: A022033 A022034 A022035 * A022037 A022038 A022039

Keyword

nonn

Author

R. K. Guy

Extensions

a(19)-a(22) from Michael De Vlieger, Sep 18 2015

Status

approved