login
a(1)=1 then a(n)= (1/2) *(5*a(n-1)+1) if a(n-1) is odd, a(n)=3/2*a(n-1) otherwise.
0

%I #10 Nov 21 2013 12:48:12

%S 1,3,8,12,18,27,68,102,153,383,958,1437,3593,8983,22458,33687,84218,

%T 126327,315818,473727,1184318,1776477,4441193,11102983,27757458,

%U 41636187,104090468,156135702,234203553,585508883,1463772208,2195658312

%N a(1)=1 then a(n)= (1/2) *(5*a(n-1)+1) if a(n-1) is odd, a(n)=3/2*a(n-1) otherwise.

%F It appears that limit n ->infinity log(a(n))/n exists and = 0.660...

%t NestList[If[OddQ[#],(5#+1)/2,(3#)/2]&,1,40] (* _Harvey P. Dale_, Apr 28 2012 *)

%K nonn

%O 1,2

%A _Benoit Cloitre_, Aug 06 2003