|
| |
|
| A217581型 |
| n≤sqrt（n）的最大素数因子，如果n是素数或1，则为1。 |
|
31
|
|
|
|
1, 1, 1, 2, 1, 2, 1, 2, 3, 2, 1, 3, 1, 2, 3, 2, 1, 3, 1, 2, 3, 2, 1, 3, 5, 2, 3, 2, 1, 5, 1, 2, 3, 2, 5, 3, 1, 2, 3, 5, 1, 3, 1, 2, 5, 2, 1, 3, 7, 5, 3, 2, 1, 3, 5, 7, 3, 2, 1, 5, 1, 2, 7, 2, 5, 3, 1, 2, 3, 7, 1, 3, 1, 2, 5, 2, 7, 3, 1, 5, 3, 2, 1, 7, 5, 2, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,4
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
该序列选择以下每组严格上级除数中的最大元素（如果为空，则为1）：
1:{} 16:{2} 31:{} 46:{2}
2:{} 17:{} 32:{2} 47:{}
3:{}18:{2,3}33:{3}48:{2,3}
4:{2} 19:{} 34:{2} 49:{7}
5:{} 20:{2} 35:{5} 50:{2,5}
6:{2} 21:{3} 36:{2,3} 51:{3}
7:｛｝22:｛2｝37:｛｝52:｛2｝
8:{2} 23:{} 38:{2} 53:{}
9:{3} 24:{2,3} 39:{3} 54:{2,3}
10:{2} 25:{5} 40:{2,5} 55:{5}
11:{} 26:{2} 41:{} 56:{2,7}
12:{2,3} 27:{3} 42:{2,3} 57:{3}
13:{} 28:{2} 43:{} 58:{2}
14:{2} 29:{} 44:{2} 59:{}
15:{3} 30:{2,3,5} 45:{3,5} 60:{2,3,5}
（完）
|
|
|
MAPLE公司
|
A217581型：=n->`if`（isprime（n）或n=1，1，max（op（select（i->i^2<=n，numtheory[因子集]（n）））））；
|
|
|
数学
|
表[If[n==1||PrimeQ[n]，1，Select[Transpose[FactorInteger[n]][1]，#<=Sqrt[n]&][[-1]]]，{n，100}](*T.D.诺伊2013年3月25日*）
|
|
|
黄体脂酮素
|
（PARI）a（n）={my（m=1）；foreach（因子（n）[，1]，d，if（d^2<=n，m=max（m，d））；m}\\安德鲁·霍罗伊德2023年10月11日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
