登录
点是{1..n}子集的拓扑数。
23

%I#22 2023年11月20日11:39:40

%序号1,2,7,45500905325715111161244725343385694094565,

%电话9639771895398191918225261715541764452276876719,

%电话:2147773435840483131811857532329181437972165190492591258634595795046979484885130660888923790726013573808627152657407370145709692639213835100410554228497713291

%N点是{1..N}子集的拓扑数。

%H维基百科<a href=“https://en.wikipedia.org/wiki/Topological_space“>拓扑空间</a>

%F From _Geoffrey Critezer,2022年7月12日:(开始)

%F E.g.F.:exp(x)*A(exp(x)-1),其中A(x)是A001035的例如F。

%F a(n)=和{k=0..n}二项式(n,k)*A000798(k)。(结束)

%e a(0)=1到a(2)=7拓扑:

%e{{}}{{}{{{}

%e{{},{1}}{}、{1}

%e{{},{2}}

%e{{},{1,2}}

%e{{},{1},}

%e{{},{2},}

%电子{{},{1},},1,2}}

%t表[Length[Select[Subsets[Subsets[Range[n]],MemberQ[#,{}]&&SubsetQ[#、Union[Union@@Tuples[#,2],Intersection@@Tuples[#,2]]&]],{n,0,4}]

%t(*第二个程序:*)

%t A000798=案例[导入[“https://oeis.org/A000798/b000798.txt“,”表格“],{_,_}][[All,2]];

%t a[n_]:=和[二项式[n,k]*A000798[[k+1]],{k,0,n}];

%t a/@范围[0,长度[A000798]-1](*Jean-François Alcover_,2019年12月30日*)

%A000798的Y二项式变换(覆盖情况)。

%Y参见A001035、A001930、A003465、A014466、A102896、A102877、A306445、A326866、A326876。

%K非n

%0、2

%A _Gus Wiseman_,2019年7月30日