|
%I #8 Jan 19 2019 07:01:55
%S 1,3,5,15,29,55,101,175,269,807,1397,2143,6429,11095,16901,50703,
%T 86573,259719,517013,1026751,2031677,3997879,7799333,15009391,
%U 28250957,51198439,86486453,259459359,509942621,992956951,1905129029,3567903439
%N a(n) = 2^(n-1)*u(n) where u(1)=1 and u(n) = frac(3/2*u(n-1)) + 1.
%H G. C. Greubel, <a href="/A079450/b079450.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n+1)<=3*a(n). Conjecture : a(n+1)=3*a(n) if and only if n is a greedy power of (2/3) (i.e. n is in A077468)
%t u[1]:= 1; u[n_]:= u[n]= FractionalPart[3*u[n-1]/2] +1; a[n_]:= 2^(n-1)* u[n]; Table[a[n], {n, 1, 40}] (* _G. C. Greubel_, Jan 18 2019 *)
%K nonn
%O 1,2
%A _Benoit Cloitre_, Jan 13 2003
|
