|
|
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).
|
|
2
|
|
|
1, 1, 21, 2, 8, 34, 1597, 3, 6765, 13, 610, 55, 55, 2584, 2584, 5, 233, 10946, 10946, 21, 21, 987, 987, 89, 46368, 89, 114059301025943970552219, 4181, 4181, 4181, 10284720757613717413913, 8, 196418, 377, 377, 17711, 17711, 17711, 9227465, 34
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
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)
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|