This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A174429 #27 Apr 03 2015 18:01:43
%S A174429 1,1,21,2,8,34,1597,3,6765,13,610,55,55,2584,2584,5,233,10946,10946,
%T A174429 21,21,987,987,89,46368,89,114059301025943970552219,4181,4181,4181,
%U A174429 10284720757613717413913,8,196418,377,377,17711,17711,17711,9227465,34
%N A174429 Collatz-Fibonacci numbers: a(1) = a(2) = 1; if n > 2, a(n) = a(C(n)) + a(C(C(n))), where C(n) = A006370(n).
%H A174429 Reinhard Zumkeller, <a href="/A174429/b174429.txt">Table of n, a(n) for n = 1..10000</a>
%H A174429 Sam Alexander, <a href="http://www.xamuel.com/collatz-recursion/">Collatz Recursion</a>
%F A174429 a(n) = Fibonacci(A008908(n)) = A000045(A008908(n)). - _T. D. Noe_, Jul 06 2010
%e A174429 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.
%t A174429 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 *)
%o A174429 (Haskell)
%o A174429 a174429 = a000045 . a008908 -- _Reinhard Zumkeller_, Nov 10 2011
%K A174429 nonn,nice,look
%O A174429 1,3
%A A174429 _Sam Alexander_, Mar 19 2010
%E A174429 Corrected by _T. D. Noe_, Jul 06 2010