OFFSET
0,2
MAPLE
with(numtheory): b:= proc(n) local s, d; if n = 0 then RETURN(1) else s := 2^(floor(n/2)); for d in divisors(n) do s := s+(phi(2*d)*2^(n/d))/(2*n); od; RETURN(s/2); fi; end: seq(b(2*n-1), n=1..30); # Emeric Deutsch, Feb 13 2006
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 24 2004
EXTENSIONS
More terms from Emeric Deutsch, Feb 13 2006
STATUS
approved