A051703-OEIS公司

A051703号

将n划分为不同素数幂的乘积的最大值（1不被视为幂）。

1、0、2、3、4、6、0、12、15、20、30、28、60、40、84、105、140、210、180、420、280、330、360、840、504、1260、1155、1540、2310、2520、4620、3080、5460、3960、9240、5544、13860、6552、16380、15015、27720、30030、32760、60060、40040、45045、51480、120120 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`0,3`
	链接	`罗伯特·格比茨，n=0..1000时的n，a（n）表` `J.Bamberg、G.Cairns和D.Kilminster，晶体限制、排列和哥德巴赫猜想，美国。数学。每月，110（2003年3月），202-209。`
	例子	`a（11）=28，因为最大值{11,23^2，2^33，2^2*7}=28。`
	MAPLE公司	`b： =proc（n，i）选项记忆；局部p；` p： =`if`（i<1，1，ithprime（i））； `如果`（n=0，1，`如果`（i<1或n<0，0，max（b（n，i-1）， `seq（p^j*b（n-p^j，i-1），j=1…ilog[p]（n）））` `结束时间：` `a： =n->b（n，数论[pi]（n））：` `seq（a（n），n=0..60）#阿洛伊斯·海因茨2013年2月16日`
	数学	`nmax=48；做[a[n]=0，{n，1，nmax}]；km=PrimePi[nmax]；对于[k=1，k<=km，k++，q=1；p=素数[k]；对于[i=nmax，i>=1，i--，q=1；而[qp<=i，q=p；如果[i==q，m=q，如果[a[i-q]！=0，m=qa[i-q]，m=0]]；a[i]=最大值[a[i]，m]]]；a[0]=1；表[a[n]，{n，0，nmax}](Jean-François Alcover公司，2012年8月2日，翻译自罗伯特·格比茨的巴黎计划*）`
	黄体脂酮素	`（PARI）{N=1000；v=向量（N，i，0）；对于素数（p=2，N，q=1；对于步长（i=N，1，-1，` `q=1；而（qp<=i，q=p；如果（i==q，M=q，如果（v[i-q]，M=q*v[i-q]，M=0））；` `v[i]=最大值（v[i]，M））；打印（0“”1）；对于（i=1，N，打印（i“”v[i]））}\\罗伯特·格比茨2012年7月31日`
	交叉参考	`第n行的最大元素A080743号.` `A000793号（n） =最大值{A000793号（n-1），a（n）}，A000793号(0)=1.` `囊性纤维变性。A008475型，A051613号，A080743号，A080744美元，A051704号.` `上下文中的序列：A046942号 A330929型 A307257型A004567号 A344340型 A030378号` `相邻序列：A051700型 A051701号 A051702号A051704号 A051705号 A051706号`
	关键词	`非n`
	作者	`弗拉德塔·约沃维奇`
	扩展	`更正和扩展人罗伯特·格比茨2012年7月31日`
	状态	`经核准的`