%I #17 Apr 04 2014 13:19:31
%S 0,2,12,54,230,948,3860,15624,63014,253588,1019072,4091174,16412668,
%T 65808044,263755984,1056789662,4233176854,16953418148,67885557896,
%U 271793651816,1088059997732,4355377285932,17432688395816,69770793302408,279227252601884
%N Number of subsets of the interval [-n .. +n] with sums > 0.
%C a(n) = A000302(n) - A047653(n) = (A004171(n) - A000980(n)) / 2.
%H Ray Chandler, <a href="/A181765/b181765.txt">Table of n, a(n) for n = 0..1660</a> (terms < 10^1000)
%e a(1) = #{{0,1}, {1}} = 2;
%e a(2) = #{{-2,0,1,2}, {-2,1,2}, {-1,0,1,2}, {-1,0,2}, {-1,1,2}, {-1,2}, {0,1}, {0,1,2}, {0,2}, {1}, {1,2}, {2}} = 12.
%o (Haskell)
%o import Data.List (subsequences)
%o a181765 n = length [xs | xs <- subsequences [-n..n], sum xs > 0]
%o -- _Reinhard Zumkeller_, Feb 22 2012, Nov 13 2010
%K nonn
%O 0,2
%A _Reinhard Zumkeller_