A183208 Iterates of f(x)=floor((3x-1)/2) from x=6.

6, 8, 11, 16, 23, 34, 50, 74, 110, 164, 245, 367, 550, 824, 1235, 1852, 2777, 4165, 6247, 9370, 14054, 21080, 31619, 47428, 71141, 106711, 160066, 240098, 360146, 540218, 810326, 1215488, 1823231, 2734846, 4102268, 6153401, 9230101, 13845151

Offset: 1

Author

Clark Kimberling, Dec 30 2010

Keywords

• nonn

Examples

			a(1)=6; a(2)=f(a(1))=8; a(3)=f(a(2))=11.
		

Crossrefs

Cf. A183207, A178931.

Programs

Mathematica

x=6; Join[{x}, Table[x=Floor[(3*x-1)/2], {n,0,36}]]
f[x_]:=Floor[(3x-1)/2]; NestList[f,6,37]

PARI

v=vector(100); v[1]=6; for(n=2,#v,v[n]=floor((3*v[n-1]-1)/2)); v

Formula

Iterates of f(x)=floor((3x-1)/2) from x=6.