%I #12 Oct 13 2022 13:09:01
%S 0,0,0,0,0,0,1,3,8,19,42,89,185,378,766,1544,3102,6220,12459,24939,
%T 49902,99831,199692,399417,798871,1597782,3195608,6391264,12782580,
%U 25565216,51130493,102261051,204522172,409044419,818088918,1636177921,3272355933
%N a(n) = number of subsets S of {1,2,...,n} having more than 2 elements such that (sum of least two elements of S) < difference between greatest two elements of S.
%H <a href="/index/Rec#order_07">Index entries for linear recurrences with constant coefficients</a>, signature (3,-1,-2,-1,1,3,-2).
%F a(n) = 3*a(n-1) - a(n-2) - 2*a(n-3) - a(n-4) + a(n-5) + 3*a(n-6) - 2*a(n-7).
%F G.f.: x^6/((-1 + x)^3 (1 + x) (-1 + 2 x) (1 + x + x^2)).
%F a(n) ~ A021025*2^n. - _Stefano Spezia_, Oct 03 2022
%F a(n) = 2^n/21 - n^2/12 + n/6 + O(1). Conjecture: a(n) = round(2^n/21 - n^2/12 + n/6). - _Charles R Greathouse IV_, Oct 11 2022
%e The 3 relevant subsets of {1,2,3,4,5,6,7} are {1, 2, 6}, {1, 2, 7}, {1, 2, 3, 7}.
%t s[n_] := s[n] = Select[Subsets[Range[n]], Length[#] >= 3 &];
%t a[n_] := Select[s[n], #[[1]] + #[[2]] < #[[-1]] - #[[-2]] &]
%t Table[Length[a[n]], {n, 0, 15}]
%Y Cf. A357290, A357292.
%Y Cf. A021025.
%K nonn,easy
%O 0,8
%A _Clark Kimberling_, Oct 02 2022
|