%I #14 Feb 26 2014 11:30:51
%S 1,0,1,3,16,97,729,6433,65536,756680,9765625,139312339,2176782336,
%T 36972058910,678223072849,13363461010158,281474976710656,
%U 6311342330065435,150094635296999121,3773536025353076151,100000000000000000000,2785962590401641140642,81402749386839761113321
%N Floor(n^n / 2^n).
%F a(n) = floor((n/2)^n).
%e a(5) = floor(5^5 / 2^5) = floor(3125 / 32) = 97.
%p A233203:=n->floor((n/2)^n); seq(A233203(n), n=0..30); # _Wesley Ivan Hurt_, Feb 26 2014
%t Table[Floor[(n/2)^n], {n, 0, 30}] (* _Wesley Ivan Hurt_, Feb 26 2014 *)
%o (Python)
%o for n in range(33): print str(n**n >> n)+',',
%Y Cf. A000079, A000312, A178537 (n^n mod 2^n for odd n), A206344.
%Y Bisection gives: A062206 (even part).
%K nonn
%O 0,4
%A _Alex Ratushnyak_, Dec 05 2013
|