%I #12 Jan 04 2021 17:54:53

%S 0,1,4,8,16,22,28,38,56,65,74,83,92,105,118,139,176,189,202,215,228,

%T 241,254,267,280,297,314,331,348,373,398,439,512,530,548,566,584,602,

%U 620,638,656,674,692,710,728,746,764,782,800,822,844,866,888,910,932,954

%N a(n) = a(floor(n/2)) + a(ceiling(n/2)) + n*floor(log_2(n)) for n >= 2, a(n) = n for n <= 1.

%H Alois P. Heinz, <a href="/A340298/b340298.txt">Table of n, a(n) for n = 0..10000</a>

%F a(2^n) = A340257(n).

%p a:= proc(n) option remember; `if`(n<2, n, (h->

%p a(h)+a(n-h)+n*ilog2(n))(iquo(n, 2)))

%p end:

%p seq(a(n), n=0..55);

%Y Cf. A033156, A340257, A340301.

%K nonn,look

%O 0,3

%A _Alois P. Heinz_, Jan 03 2021