A086813 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.

1, 3, 8, 12, 18, 27, 68, 102, 153, 383, 958, 1437, 3593, 8983, 22458, 33687, 84218, 126327, 315818, 473727, 1184318, 1776477, 4441193, 11102983, 27757458, 41636187, 104090468, 156135702, 234203553, 585508883, 1463772208, 2195658312

Offset

1,2

Links

Table of n, a(n) for n=1..32.

Formula

It appears that limit n ->infinity log(a(n))/n exists and = 0.660...

Mathematica

NestList[If[OddQ[#], (5#+1)/2, (3#)/2]&, 1, 40] (* Harvey P. Dale, Apr 28 2012 *)

Crossrefs

Sequence in context: A063225 A213238 A005660 * A287081 A352814 A294482

Adjacent sequences: A086810 A086811 A086812 * A086814 A086815 A086816

Keyword

nonn

Author

Benoit Cloitre, Aug 06 2003

Status

approved