OFFSET
1,1
FORMULA
Iterates of f(x)=floor((3x-1)/2) from x=6.
EXAMPLE
a(1)=6; a(2)=f(a(1))=8; a(3)=f(a(2))=11.
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]
PROG
(PARI) v=vector(100); v[1]=6; for(n=2, #v, v[n]=floor((3*v[n-1]-1)/2)); v
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 30 2010
STATUS
approved