%I #11 Jun 01 2018 18:16:44
%S 1,1,2,4,7,13,24,44,81,149,274,501,918,1686,3110,5724,10543,19435,
%T 35857,66198,122294,226135,418351,774372,1434089,2657205,4925796,
%U 9135403,16949546,31460330,58415177,108502732,201603881,374707879,696649896,1295562234,2410000999
%N Number of subsets of {1, 2, ..., n} such that the sum of the reciprocals is strictly less than 1.
%F a(n) = A212657(n) - A092670(n).
%e For n = 4 the a(4) = 7 subsets are:
%e {} because 0 < 1,
%e {2} because 1/2 < 1,
%e {2, 3} because 1/2 + 1/3 = 5/6 < 1,
%e {2, 4} because 1/2 + 1/4 = 3/4 < 1,
%e {3} because 1/3 < 1,
%e {3, 4} because 1/3 + 1/4 = 7/12 < 1, and
%e {4} because 1/4 < 1.
%t a[n_] := 1 + Length@ Select[Subsets[Range[2,n], {1, n-1}], Total[1/#] < 1 &]; Array[a, 15] (* _Giovanni Resta_, Jun 01 2018 *)
%Y Cf. A092669, A092670, A212657, A272083.
%K nonn
%O 0,3
%A _Peter Kagey_, Jun 01 2018
%E a(26)-a(36) from _Giovanni Resta_, Jun 01 2018