OFFSET
1,4
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..4786
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
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Jun 19 2005
EXTENSIONS
More terms from Robert G. Wilson v, Jun 21 2005
STATUS
approved