|
%I
%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.
%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}] (from _Robert G. Wilson v_, Jun 21 2005)
%Y Cf. A000740.
%K easy,nonn
%O 1,4
%A _Vladeta Jovovic_, Jun 19 2005
%E More terms from _Robert G. Wilson v_, Jun 21 2005
|
