%I #4 Feb 11 2018 10:52:19
%S 1,2,3,6,9,18,36,54,81,162,324,648,1296,1944,2916,4374,6561,13122,
%T 26244,52488,104976,209952,419904,839808,1679616,2519424,3779136,
%U 5668704,8503056,12754584,19131876,28697814,43046721,86093442,172186884,344373768,688747536
%N a(n) = a(floor(n/2))*a(ceiling(n/2)), where a(0) = 1, a(1) = 2, a(2) = 3.
%H Clark Kimberling, <a href="/A298413/b298413.txt">Table of n, a(n) for n = 0..1000</a>
%t a[0] = 1; a[1] = 2; a[2] = 3;
%t a[n_] := a[n] = a[Floor[n/2]]*a[Ceiling[n/2]];
%t t = Table[a[n], {n, 0, 30}] (* A298413 *)
%Y Cf. A298338.
%K nonn,easy
%O 0,2
%A _Clark Kimberling_, Feb 11 2018