编号：A317765-OEIS

搜索： 编号：a317765

显示1-1个结果（共1个）。

第页1

排序：关联|参考文献|数|被改进的|创建格式：长的|短的|数据

A317765型

带有电子数n的自由纯对称多功能（允许空表达式）的不同子表达式的数目。

+0
8

1, 2, 3, 2, 4, 3, 5, 3, 3, 4, 6, 4, 4, 5, 7, 2, 5, 5, 6, 8, 3, 6, 6, 7, 4, 9, 3, 4, 7, 7, 8, 4, 5, 10, 4, 3, 5, 8, 8, 9, 5, 6, 11, 5, 4, 6, 9, 9, 5, 10, 6, 7, 12, 6, 5, 7, 10, 10, 6, 11, 7, 8, 13, 3, 7, 6, 8, 11, 11, 7, 12, 8, 9, 14, 4, 8, 7, 9, 12, 12, 3, 8 (列表;图表;参考;听;历史;文本;内部格式)

	偏移	`1,2`
	评论	`如果n=1，则e（n）为叶符号“o”。给定一个正整数n>1，我们通过将n表示为素数乘积的非完美幂的一个数的幂，构造了一个具有一个原子的唯一自由纯对称多功能（允许空表达式）e（n）：n=rad（x）^（prime（y_1）…素数（yk），其中rad=A007916号那么e（n）=e（x）[e（y_1），…，e（y_k）]。例如，e（21025）=o[o[o]][o]，因为21025=rad（rad（1）^prime。`
	链接	`n=1..82时的n、a（n）表。`
	例子	`o[o[]][]的a（12）=4个子表达式是{o，o[]，o[o[]]，o[o[]][]}。`
	数学	`nn=1000；` `radQ[n_]：=如果[n===1，False，GCD@@FactorInteger[n][[All，2]]===1]；` `rad[n_]：=rad[n]=如果[n===0，1，NestWhile[#+1&，rad[n-1]+1，非[radQ[#]]&]]；` `清除[radPi]；设置@@@Array[radPi[rad[#]]==#&，nn]；` `exp[n_]：=如果[n===1，“o”，使用[{g=GCD@@FactorInteger[n][[All，2]]}，应用[exp[radPi[Power[n，1/g]]]，exp/@Flatten[Cases[FactorIntiger[g]，{p_？PrimeQ，k_}:>ConstantArray[PrimePi[p]，k]]]]；` `表[Length[Union[Cases[exp[n]，_，{0，Infinity}，Heads->True]]，{n，100}]`
	交叉参考	`囊性纤维变性。A007916号，A052409号，A052410号，A277576号，A277996型，A300626型，A316112型，A317056，A317658型，A317713飞机，A317994型。`
	关键词	`非n`
	作者	`古斯·怀斯曼2018年8月18日`
	状态	`经核准的`

第页1

搜索在0.007秒内完成