login
A183208
Iterates of f(x)=floor((3x-1)/2) from x=6.
1
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,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
Sequence in context: A167499 A020716 A020937 * A048586 A080824 A183979
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 30 2010
STATUS
approved