登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A028233号 如果n=p_1^e_1*。。。*第1页。。。<p_ck素数,则a(n)=pˉ1^e_1,其中a(1)=1。 26
23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23、23 81,2,7,7,7,7,8 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,2

评论

最小素数除n的最高幂-莱因哈德·祖姆凯勒2015年4月9日

链接

T、 诺伊和莱因哈德·祖姆凯勒,n=1..10000的n,a(n)表从T.D.Noe开始的前1000个术语

公式

a(n)=A020639号(n)^A067029号(n) 一。-莱因哈德·祖姆凯勒2006年5月13日

a(n)=邮编:A141809(n,1)。-莱因哈德·祖姆凯勒2012年6月4日

a(n)=n/A028234号(n) 一。-安蒂·卡尔图宁2017年5月29日

例子

阿西鲁2018年1月27日:(开始)

如果n=10,那么a(10)=2,因为10=2^1*5^1。

如果n=16,那么a(16)=16,因为16=2^4。

如果n=29,那么a(29)=29,因为29=29^1。

(结束)

枫木

A028233号:=过程(n)

当地spf,pf;

如果n=1,则

返回1;

结束if;

特殊用途基金:=A020639号(n) ;

对于ifactors(n)[2]中的pf,do

如果pf[1]=spf,则

返回pf[1]^pf[2];

结束if;

结束do:

结束过程:#R、 J.马萨2016年7月9日

#第二个枫树计划:

a: =n->`if`(n=1,1,(i->i[1]^i[2])(排序(ifactors(n)[2])[1]):

顺序(a(n),n=1..100)#海因茨2018年1月29日

数学

a[n\]:=Power@@第一个[factoranteger[n]];表[a[n],{n,1,86}](*让·弗朗索瓦·阿尔科弗2011年12月1日*)

黄体脂酮素

(哈斯克尔)

a028233=头部。a141809_排

--莱因哈德·祖姆凯勒2012年6月4日,2011年8月17日

(PARI)a(n)=如果(n>1,n=系数(n);n[1,1]^n[1,2],1)\\查尔斯R格雷特豪斯四世2012年4月26日

(蟒蛇)

来自sympy import factont

不适用:

f=因子(n)

如果n==1,则返回1,否则min(f)**f[最小(f)]#印度教2017年5月12日

(方案)

;天真的实现A020639号在该条目下给出。所有这些函数也可以用definec定义,以使它们在以后的调用中更快。参见http://oeis.org/wiki/Memoization#方案

(定义(A028233号n) (如果(<n2)n(让((lpf(A020639号n) )(让循环((m lpf)(n(/n lpf)))(条件((不是(零?(模n lpf)))m)(其他(循环(*m lpf)(/n lpf)))))));;安蒂·卡尔图宁2017年5月29日

(GAP)列表(List(List(List([1..10^3],因子),集合),i->i[1]),j->j[1]^j[2])#阿西鲁2018年1月27日

交叉引用

囊性纤维变性。A020639号,A006530,A034684号,A034699号,A053585号.

另请参见A028234号.

囊性纤维变性。A008475号.

囊性纤维变性。邮编:A141809.

上下文顺序:A304181 A034684号 A323130型*A216972号 A066296号 A162961年

相邻序列:A028230 A028231号 A028232号*A028234号 A028235号 A028236号

关键字

,美好的,容易的

作者

马克·勒布伦

扩展

编辑名称以包含(1)=1富兰克林·T·亚当斯·沃特斯2018年1月27日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年8月8日14:04。包含336298个序列。(运行在oeis4上。)