%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