%I#10 2019年3月27日12:33:18
%S 2,3,5,7,9,11,13,17,19,23,29,30,31,37,41,43,47,53,59,61,67,71,73,79,
%电话83,84,89,97101103107109113127131137139149151157163,
%电话:1671731791811911931971992002112232222292339241251
%乘积等于其和的整数分区的N Heinz数。
%整数分区的Heinz数(y_1,…,y_k)是素数(y_1)**质数(yk)。
%H Alois P.Heinz,n的表格,n=1..10000的a(n)</a>
%e反整数分块序列开始:(1),(2),(3),(4),(22),(5),(6),(7),(8),(9),(10),(12),(13),(14),(15),(16),(17),(18),(19),(20),(21),,(30)。
%pq:=n->(l->mul(i,i=l)=加(i,i=l))(映射(i->
%p数字理论[pi](i[1])$i[2],ifactors(n)[2]):
%p选择(q,[1..300])[];#_Alois P.Heinz,2019年3月27日
%t素数MS[n_]:=如果[n===1,{},平坦[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
%t选择[Range[300],Total[primeMS[#]]===Times@@primeMS[#]&]
%Y参考A001055、A002865、A003963、A056239、A276024、A284640、A296150、A299701、A301957、A301988。
%K nonn公司
%O 1,1号机组
%A _ Gus Wiseman_,2018年3月30日
|