OFFSET
1,2
COMMENTS
A Collatz-Fibonacci mixture. If a(1)=0 and a(2)=m not congruent to 3, a(n) is cyclic (m,m,2m). Does this sequence diverge to infinity if a(1)=0 and a(2)=m == 0 (mod 3)?
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Transpose[NestList[{Last[#], If[Divisible[Total[#], 3], Total[#]/3, Total[ #]]}&, {0, 3}, 60]][[1]] (* Harvey P. Dale, Dec 08 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 11 2002
STATUS
approved