A085818-OEIS公司

A085818号

对于n>1：a（n）=p，如果n=p^e具有p素数且e>1，则a（n）=第（n-m）个素数，其中m=非素数幂的个数<=n；a（1）=1。

1, 2, 3, 2, 5, 7, 11, 2, 3, 13, 17, 19, 23, 29, 31, 2, 37, 41, 43, 47, 53, 59, 61, 67, 5, 71, 3, 73, 79, 83, 89, 2, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 7, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241

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

抵消

1,2

a（n）=A025473号（n）如果n=p^e且p素数和e>1，则a（n）=A008578号（n）-A085501号（n））；

n除法A085819号（n） =产品{k<=n}a（k），如通过构造：a（1）=1；如果n除以A085819号（n-1）则a（n）=未更早出现的最小素数；如果n不除A085819号（n-1）则a（n）=n的最大素因子(A006530号);

A000040型作为子序列无限多次发生。

一个(A085971号（n））=A000040型（n）对于所有k>1:a(A000040型（n） ^k）=A000040型（n）；A085985号（n）=A049084号（a（n））-莱因哈德·祖姆凯勒2003年7月6日

链接

米歇尔·马库斯，n=1..10000时的n，a（n）表

黄体脂酮素

（PARI）f（n）=1+和（k=2，n，i素数幂（k）&&！isprime（k））\\A085501号

a（n）={if（n==1，return（1））；my（p）；if（isprimepower（n，/p）&&！isprime（n），p，prime（n-f（n）））；}\\米歇尔·马库斯2021年1月28日

（Python）

从sympy导入primefactors，prime，primepi，integer_nthroot

定义A085818美元（n）：如果n==1 else（f[0]if len（f：=素数因子（n））==1且f[0]<n else素数（n-1-和（primepi（integer_nthroot（n，k）[0]），对于范围（2，n.bit_length（））中的k））#柴华武，2024年8月20日

交叉参考

囊性纤维变性。A000040型,A008578号,A085971号.

囊性纤维变性。A006530号,A025473号,A085501号,A085819号,A085985号,A049084号.

上下文中的序列：A337246飞机 A347104型 A369687型*A270709型 A323382型 A372597飞机

相邻序列：A085815号 A085816号 A085817号*A085819美元 A085820号 A085821美元

关键词

非n

作者

莱因哈德·祖姆凯勒2003年7月4日

状态

经核准的