%I #12 Mar 09 2020 09:11:39
%S 1,1,1,3,4,7,12,21,32,54,88,141,232,376,604,987,1596,2576,4180,6762,
%T 10932,17710,28656,46347,75020,121392,196384,317808,514228,831978,
%U 1346268,2178309,3524488,5702886,9227448,14930208,24157816,39088168
%N Number of compositions of n into odd and relatively prime parts.
%H Amiram Eldar, <a href="/A108700/b108700.txt">Table of n, a(n) for n = 1..4786</a>
%F a(n) = A007436(n) if n is odd, else a(n) = a(n/2) + A007436(n).
%t a[n_] := a[n] = Module[{d = Divisors[n]}, m = Plus @@ (MoebiusMu /@ (n/d)*Fibonacci /@ d); If[ OddQ[n], m, a[n/2] + m]]; Table[ a[n], {n, 38}] (* _Robert G. Wilson v_, Jun 21 2005 *)
%Y Cf. A000740, A007436.
%K easy,nonn
%O 1,4
%A _Vladeta Jovovic_, Jun 19 2005
%E More terms from _Robert G. Wilson v_, Jun 21 2005