%I#5 2018年2月23日11:11:33
%S 0,1,2,3,4,3,5,4,6,5,7,5,8,6,6,9,10,7,11,7,7,8,12,6,13,9,8,8,14,7,15,
%电话10,9,11,9,9,16,12,10,8,17,8,18,10,10,13,19,11,20,14,12,11,9,11,9,
%U 13,15,22,9,23,16,11,12,10,24,13,14,10,25,10,26,17
%具有FDH数N的严格整数分区的权重。
%C设f(n)=A050376(n)是第n个Fermi-Dirac素数。每个正整数n都有一个形式为n=f(s_1)**f(sk)其中si严格递增正整数。这将确定一个唯一的严格整数分区(s_k…s_1),然后将其FDH数定义为n。
%C类似于整数分区和正整数之间的Heinz数对应关系(参见A056239),FDH数给出了严格整数分区和正数之间的对应关系。
%e严格整数分区序列开始:()(1)(2)(3)(4)(2,1)(5)(3,1)(6)(4,1)。
%t FDfactor[n_]:=如果[n===1,{},排序[Join@@Cases[FactorInteger[n],{p_,k_}:>幂[p,Cases[Position[IntegerDigits[k,2]//反转,1],{米}->2^(m-1)]]]];
%t nn=200;FDprimeList=数组[FDfactor,nn,1,Union];
%t FDrules=映射索引[(#1->#2[[1])&,FDprimeList];
%t表[Total[FDfactor[n]/。FDrules],{n,nn}]
%Y参见A004111、A050376、A056239、A061775、A064547、A106400、A213925、A215366、A246867、A279065、A279614、A299090、A299755、A29975%、A29975、A299788、A2997509。
%K nonn公司
%氧1,3
%A _Gus Wiseman_,2018年2月18日
|