登录

OEIS由OEIS基金会的许多慷慨捐赠者.

 

提示 （来自的问候整数序列在线百科全书!) A294068型 使用完美幂（元素A001597号)除1。 17 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1,16 链接 罗伯特·伊斯雷尔，n=1..10000时的n，a（n）表 例子 a（1152）=7因子分解为（4*4*8*9），（4*8*36），（4*9*32），（8*9*16），（8*144），（9*128），（32*36）。 MAPLE公司 ispp:=proc（n）局部F； F： =系数（n）[2]； igcd（op（映射（t->t[2]，F））>1 结束进程： f： =proc（n）局部f，np，Q； F： =映射（t->t[2]，ifactors（n）[2]）； np:=mul（ithprime（i）^F[i]，i=1..nops（F））； Q： =选择（ispp，数字理论：-除数（np））； G（Q，np） 结束进程： G： =proc（Q，n）选项记忆；局部q，t，k； 如果不是numtheory:-factorset（n）subset `union`（seq（numtheori:-factortset（q），q=q）），则返回0 fi； q： =q[1]；t： =0； 当n mod q^k=0 do时，k从0开始 t： =t+进程名（Q[2..-1]，n/Q^k） od； t吨 结束进程： G（{}，1）：=1： 地图（f，[1..200]美元）#罗伯特·伊斯雷尔2018年5月6日 数学 ppQ[n_]：=与[n>1，GCD@@FactorInteger[n][[All，2]>1]； facsp[n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，Select[facsp[n/d]，Min@@#>=d&]]，{d，选择[Divisors[n]，ppQ]}]]； 表[长度[facsp[n]]，{n，100}] 交叉参考 零的位置为A052485型. 囊性纤维变性。A000961号,A001055号,A001222号,A001597号,A001694号,A007716号,A007916号,A045778美元,A052409号,A052410号,A052486号,A091050型,A203025型,A303707型,A303710. 上下文中的序列：A303553型 A365550型 A188585号*A339553型 A181011号 A084863号 相邻序列：A294065型 A294066号 A294067号*A294069号 A294070型 A294071型 关键词 非n 作者 古斯·怀斯曼2018年5月5日 状态 经核准的

查找|欢迎光临|维基|注册|音乐|地块2|Demos公司|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间：美国东部夏令时2024年4月18日09:32。包含371779个序列。（在oeis4上运行。）