A182318-OEIS公司

A182318号

注释中定义的素数塔因子分解不包含素数2的正整数列表。

1、3、5、7、11、13、15、17、19、21、23、27、29、31、33、35、37、39、41、43、47、51、53、55、57、59、61、65、67、69、71、73、77、79、83、85、87、89、91、93、95、97、101、103、105、107、109、111、113、115、119、123、125、127、129、131、133、135、137、139、141、143、145、149 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`一个数的素塔分解可以递归定义为：1的素塔因子分解是它自己；为了求整数n>1的素数塔因式分解，设n=p_1^e1p_2^e2…p_k^e_k是n的正则素因式分解，则素塔因式分解由p_1^f_1p2^f_2…给出pk^fk，其中fi是ei的素数塔因式分解。` `另一种定义是：设I（n）为素塔因子分解不包含2的正整数集的指示函数。那么I（n）是满足I（p^k）=I（k）的乘法函数，p素数不等于2，I（2^k）=0。`
	链接	`雷米·西格里斯特，n=1..10000时的n，a（n）表` `Patrick Devlin和Edinah Gnang，素数塔分解中出现的素数，arXiv:1204.5251[math.NT]，2012-2014年。`
	MAPLE公司	`#整数n在此序列中当且仅当` `#containsPrimeInTower（2，n）返回false` `containsPrimeInTower:=proc（q，n）local i，L，currentExponent；选项记忆；` `如果n<=1，则返回false：结束if；` `if类型（n/q，integer）则返回true:end if；` `L:=系数（n）[2]；` `对于i到nops（L），执行currentExponent：=L[i][2]；` `如果containsPrimeInTower（q，currentExponent），则返回true:end if` `结束do；` `返回false：` `结束进程：`
	数学	`选择[范围[150]！MemberQ[Flatten@FixedPoint[Map[If[PrimeQ@Last@#\|\|Last@#=1，#，{First@#，FactorInteger@Last@@}]&，#，[Depth@#-2}]&(迈克尔·德·维利格2017年2月17日）` `containsPrimeInTower[q_，n_]：=containsPrinceInTower[q，n]=模块[{i，L，currentExponent}，如果[n<=1，返回[False]]；如果[IntegerQ[n/q]，返回[True]]；L=系数整数[n]；对于[i=1，i<=长度[L]，i++，currentExponent=L[[i，2]]；如果[containsPrimeInTower[q，currentExponent]，返回[True]]；返回[错误]]；` `选择[范围[150]！包含PrimeInTower[2，#]&](Jean-François Alcover公司，2019年1月22日，翻译自枫叶）`
	交叉参考	`上下文中的序列：A088828号 A348741型 A348748飞机A247424型 A305635型 A334420型` `相邻序列：A182315号 A182316铝合金 A182317号182319年 A182320型 A182321号`
	关键词	`非n`
	作者	`帕特里克·德富林2012年4月24日`
	扩展	`Maple程序中的打字错误由雷米·西格里斯特2016年12月13日`
	状态	`经核准的`