A108700 Number of compositions of n into odd and relatively prime parts.

1, 1, 1, 3, 4, 7, 12, 21, 32, 54, 88, 141, 232, 376, 604, 987, 1596, 2576, 4180, 6762, 10932, 17710, 28656, 46347, 75020, 121392, 196384, 317808, 514228, 831978, 1346268, 2178309, 3524488, 5702886, 9227448, 14930208, 24157816, 39088168

Offset

1,4

Links

Amiram Eldar, Table of n, a(n) for n = 1..4786

Formula

a(n) = A007436(n) if n is odd, else a(n) = a(n/2) + A007436(n).

Mathematica

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 *)

Crossrefs

Cf. A000740, A007436.

Sequence in context: A293642 A214286 A340359 * A325851 A062202 A049859

Adjacent sequences: A108697 A108698 A108699 * A108701 A108702 A108703

Keyword

easy,nonn

Author

Vladeta Jovovic, Jun 19 2005

Extensions

More terms from Robert G. Wilson v, Jun 21 2005

Status

approved