|
%I #11 Jan 22 2019 02:48:20
%S 1,2,4,9,23,63,190,612,2056,7155,25482,92205,337594,1246863,4636390,
%T 17334801,65108062,245492244,928772650,3524337980,13409202676,
%U 51141124287,195470831356,748607855769,2872202028517,11038251159312
%N Bisection of A000011.
%p 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
%Y Cf. A000011, A000117.
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_, Nov 24 2004
%E More terms from _Emeric Deutsch_, Feb 13 2006
|
