%I #8 Mar 30 2012 18:57:12
%S 6,8,11,16,23,34,50,74,110,164,245,367,550,824,1235,1852,2777,4165,
%T 6247,9370,14054,21080,31619,47428,71141,106711,160066,240098,360146,
%U 540218,810326,1215488,1823231,2734846,4102268,6153401,9230101,13845151
%N Iterates of f(x)=floor((3x-1)/2) from x=6.
%F Iterates of f(x)=floor((3x-1)/2) from x=6.
%e a(1)=6; a(2)=f(a(1))=8; a(3)=f(a(2))=11.
%t x=6; Join[{x}, Table[x=Floor[(3*x-1)/2], {n,0,36}]]
%t f[x_]:=Floor[(3x-1)/2]; NestList[f,6,37]
%o (PARI) v=vector(100); v[1]=6; for(n=2,#v,v[n]=floor((3*v[n-1]-1)/2)); v
%Y Cf. A183207, A178931.
%K nonn
%O 1,1
%A _Clark Kimberling_, Dec 30 2010
|