%I#19 2019年10月9日04:48:22

%S 1,1,1,1,0,0,1,0,0,1,0,1,2,0,2,1,2,1,1,1,2,1,2,2,2,2,0,4,2,5,5，

%T 1,2,2,3,2,5,3,4,2,3,10,2,4,7,5,3,10,4,3,7,6,4,4,5,5,2,6,6,5,8,4,5，

%U 4,5,2,10,5,3,7,11,6,10,5,11,6,4,7,6,10

%{1..N}的子集数，其乘积大于其补码之和。

%C根据定义，其和小于其补码乘积一的子集的数量。

%H Giovanni Resta，<a href=“/A25538/b325538.txt”>n，a（n）表，n=0..2500</a>

%e初始术语计算以下子集：

%电子0:{}

%e1:{1}

%e2:{2}

%e3:{1,3}

%e4:{2,3}

%e 7:{4,5}

%e 10:{1,6,7}

%e 12:{7,9}

%e 12:{1,2,4,8}

%e 14：｛2，5，9｝

%e 14:{1,2,4,11}

%e 15:{1,3,5,7}

%e 16:{3,4,10}

%e 16:{1,3,5,8}

%e 17:{1,10,13}

%e 18:{2,5,15}

%e 19:{11,15}

%e 19:{1,2,6,14}

%e 20:{1,4,6,8}

%t表[Length[Select[Subsets[Range[n]]，1+Plus@@#=Times@@Complement[Range[范围[n]，#]&]]，{n，0,10}]

%t ric[n_，pr_，s_，lst_，t_]：=块[{k}，如果[pr==t-s，cnt++]；做[If[pr k<=t，ric[n，pr k，s+k，k，t]，Break[]]，{k，lst+1，n}]]；a[n]：=（cnt=0；ric[n，1，0，0，n（n+1）/2+1]；碳纳米管）；a/@Range[0，85]（*Giovanni Resta_，2019年9月13日*）

%Y参考A028422、A053632、A059529、A063865、A178830、A301987、A325041、A326172、A326173、A326174、A326175、A326179、A326180、A326441。

%K nonn公司

%O 0,13号

%A _Gus Wiseman_，2019年7月7日

%E来自_Alois P.Heinz的更多条款，2019年7月12日