OFFSET
1,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Sam Alexander, Collatz Recursion
EXAMPLE
a(4) = a(2) + a(1) = 2. a(8) = a(4) + a(2) = 3. a(16) = a(8) + a(4) = 5. a(5) = a(16) + a(8) = 8.
MATHEMATICA
collatz[n_] := If[EvenQ[n], n/2, 3n + 1]; collFibo[1] = 1; collFibo[2] = 1; collFibo[n_] := collFibo[n] = collFibo[collatz[n]] + collFibo[collatz[collatz[n]]]; Table[collFibo[n], {n, 100}] (* T. D. Noe, Jul 06 2010 *)
PROG
(Haskell)
a174429 = a000045 . a008908 -- Reinhard Zumkeller, Nov 10 2011
CROSSREFS
KEYWORD
AUTHOR
Sam Alexander, Mar 19 2010
EXTENSIONS
Corrected by T. D. Noe, Jul 06 2010
STATUS
approved