%I #3 May 01 2014 02:47:51
%S 1,1,0,0,2,0,1,0,4,0,0,2,4,8,0,0,2,8,16,16,0,0,0,12,40,48,32,0,1,0,12,
%T 80,144,128,64,0,0,2,12,136,384,448,320,128,0,0,2,12,224,912,1408,
%U 1280,768,256,0,0,0,20,328,2048,4096,4544,3456,1792,512,0,0,2,16,480,4336
%N Upper triangular region of the table A073346.
%p A073430 := n -> A073346bi(A003056(n), A002262(n));
%p A002262 := n -> n - binomial(floor((1/2)+sqrt(2*(1+n))),2);
%p A003056 := n -> floor(sqrt(2*(1+n))-(1/2));
%K nonn,tabl
%O 0,5
%A _Antti Karttunen_, Jul 31 2002