A100762-OEIS公司

A100762号

设n=2^e_2*3^e_3*5^e_5*。。。是n的素因式分解，设P（n）=A100549号（n）；则a（n）=产品{q<=P（n）}q^e_q；a（1）=1按惯例。

1, 2, 1, 4, 1, 2, 1, 8, 9, 2, 1, 12, 1, 2, 1, 16, 1, 18, 1, 4, 1, 2, 1, 24, 1, 2, 27, 4, 1, 2, 1, 32, 1, 2, 1, 36, 1, 2, 1, 8, 1, 2, 1, 4, 9, 2, 1, 48, 1, 2, 1, 4, 1, 54, 1, 8, 1, 2, 1, 12, 1, 2, 9, 64, 1, 2, 1, 4, 1, 2, 1, 72, 1, 2, 3, 4, 1, 2, 1, 80, 81, 2, 1, 12, 1, 2, 1, 8, 1, 18, 1, 4, 1, 2, 1, 96, 1

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,2

链接

安蒂·卡图恩，n=1..16384时的n，a（n）表

安蒂·卡图恩，数据补充：n，a（n）为n=1.100000计算

MAPLE公司

#首先从加载过程ppA100549号

#B=产品{p<=pp（n）}p^e_p

B:=程序（n）局部v，f，pv；全球pp；选项记忆；

pv:=pp（n）；

v：=1：

对于op（2..-1，ifactors（n））中的f，而f[1]<=pv-do

v：=v*f[1]^f[2]；

结束do；

返回v；

终末程序；

数学

{1} ~Join~Array[Function[{q，P}，Times@@Power@@@Select[q，First@#<=P&]]@@{#，Prime@PrimePi[1+Max@#[[All，-1]]}&@FactorInteger[#]&，96，2](*迈克尔·德弗利格2018年11月13日*）

黄体脂酮素

（PARI）

A100549号（n） =如果（1==n，1，素数（素数pi（1+vecmax（因子（n）[，2]）））；

A100762号（n） =如果（1==n，1，my（u=A100549号（n），f=系数（n））；prod（i=1，#f~，if（f[i，1]<=u，f[i；1]^f[i、2]，1））\\Antti Karttunen公司2018年11月11日

交叉参考

囊性纤维变性。A100549号,A100417号,A141586号,A082725号.

上下文中的序列：A108738号 A064405号 A235872型*A059147美元 A091891号 2005年12月27日

相邻序列：A100759号 A100760型 A100761号*A100763号 2007年1月64日 A100765号

关键词

非n

作者

大卫·阿普尔盖特和N.J.A.斯隆2008年9月15日

状态

经核准的