login
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).
1
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
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
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(19)-a(22) from Michael De Vlieger, Sep 18 2015
STATUS
approved