cp's OEIS Frontend

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

%I A340298 #12 Jan 04 2021 17:54:53
%S A340298 0,1,4,8,16,22,28,38,56,65,74,83,92,105,118,139,176,189,202,215,228,
%T A340298 241,254,267,280,297,314,331,348,373,398,439,512,530,548,566,584,602,
%U A340298 620,638,656,674,692,710,728,746,764,782,800,822,844,866,888,910,932,954
%N A340298 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 A340298 Alois P. Heinz, <a href="/A340298/b340298.txt">Table of n, a(n) for n = 0..10000</a>
%F A340298 a(2^n) = A340257(n).
%p A340298 a:= proc(n) option remember; `if`(n<2, n, (h->
%p A340298       a(h)+a(n-h)+n*ilog2(n))(iquo(n, 2)))
%p A340298     end:
%p A340298 seq(a(n), n=0..55);
%Y A340298 Cf. A033156, A340257, A340301.
%K A340298 nonn,look
%O A340298 0,3
%A A340298 _Alois P. Heinz_, Jan 03 2021