|
| |
|
| A319841型 |
| 通过将整数分区的各个部分与Heinz数n迭代相加或相乘，直到只剩下一部分，即可获得的不同正整数的数目。 |
|
4
|
|
|
|
0, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 2, 4, 1, 3, 1, 4, 2, 2, 1, 5, 2, 2, 2, 4, 1, 5, 1, 6, 2, 2, 2, 6, 1, 2, 2, 7, 1, 6, 1, 4, 4, 2, 1, 8, 2, 5, 2, 4, 1, 6, 2, 8, 2, 2, 1, 7, 1, 2, 4, 9, 2, 6, 1, 4, 2, 6, 1, 8, 1, 2, 6, 4, 2, 6, 1, 9, 4, 2, 1, 10, 2, 2, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,4
|
|
|
链接
|
|
|
|
公式
|
|
|
|
例子
|
60是（3,2,1,1）的Heinz数
5 = (3+2)*1*1
6 = 3*2*1*1
7 = 3+2+1+1
8 = (3+1)*2*1
9 = 3*(2+1)*1
10 = (3+2)*(1+1)
12 = (3+1)*(2+1)
所以我们得到a（60）=7。不可能通过将（3,2,1,1）的部分相加或相乘得到11。
|
|
|
数学
|
ReplaceListRepeated[forms_，rerules_]：=并集[Flatten[FixedPointList[Function[pre，Union[Flatted[Replace列表[#，rerules]&/@pre，1]]，forms]，1]]]；
表[Length[Select[ReplaceListRepeated[{If[n==1，{}，Flatten[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]}，{对象___，x_，mie___，y_，afe__}:>Sort[Append[{对象，mie，afe}，x+y]]，{目标___，x，mie ___，y，afe_}:>排序[{目标，mie}，x*y]]}]，长度[#]==1&]]，{n，100}]
|
|
|
交叉参考
|
参见。A001055号,A001970号,A048249号,A056239号,A063834号,A066739号,A066815号,A281113型,A318948型,A318949型,A319855型,A319856型.
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
