搜索： a080363-编号：a080366
|
| |
| |
|
|
|
6, 10, 14, 15, 18, 21, 22, 26, 30, 33, 34, 35, 38, 39, 42, 46, 50, 51, 54, 55, 57, 58, 62, 65, 66, 69, 70, 74, 75, 77, 78, 82, 85, 86, 87, 90, 91, 93, 94, 95, 98, 102, 105, 106, 110, 111, 114, 115, 118, 119, 122, 123, 126, 129, 130, 133, 134, 138, 141, 142, 143, 145, 146
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
密度为和{p>=2}1/p*Product{q<=p}（1-1/q），约为0.65。（在和和乘积中，p和q仅限于素数。）-查尔斯·格里特豪斯四世2022年1月9日
|
|
|
链接
|
|
|
|
例子
|
50 = 2^1 * 5^2; 最小素因子是2，其指数是1，所以50是一个项。
|
|
|
数学
|
mi[x_]：=部分[Flatten[FactorInteger[x]]，1]k=0；Do[s=mi[n]；如果[Equal[GCD[s，n/s]，1]&&！PrimeQ[n]，打印[n]]，{n，2，256}]
选择[Range[150]，CompositeQ[#]&&FactorInteger[#][[1，2]]==1&]（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔，2021年1月23日*）
|
|
|
黄体脂酮素
|
（PARI）是（n，f=系数（n））=n>1&&f[1，2]==1\\查尔斯·格里特豪斯四世2022年1月9日
（PARI）是（n）=素数（p=2,97，如果（n%p==0，返回（n%p2>0））！i幂（n）&系数（n）[1,2]==1\\查尔斯·格里特豪斯四世2022年1月9日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
6, 10, 14, 15, 21, 22, 26, 30, 33, 34, 35, 38, 39, 42, 46, 51, 55, 57, 58, 62, 65, 66, 69, 70, 74, 77, 78, 82, 85, 86, 87, 90, 91, 93, 94, 95, 102, 105, 106, 110, 111, 114, 115, 118, 119, 122, 123, 126, 129, 130, 133, 134, 138, 141, 142, 143, 145, 146, 154, 155, 158
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
k=90不是素数；90 = 2*3*3*5; 极值素因子为2和5；gcd（2,90/2）=gcd（5,90/5）=1，所以2和5是90的幺正素因子，因此90在序列中。
|
|
|
数学
|
ma[x_]：=部件[Reverse[Flatten[FactorInteger[x]]]，2]mi[x_]:=部件[Flatten[FactorInteger[x]]，1]k=0；Do[s=mi[n]；s1=ma[n]；如果[Equal[GCD[s，n/s]，1]&Equal[CCD[s1，n/s1]，1]&！PrimeQ[n]，打印[n]]，{n，2，256}]
|
|
|
黄体脂酮素
|
（PARI）列表a（nn）={对于复合（n=1，nn，my（f=因子（n）[，1]，p=vecmin（f），q=vecmax（f））；如果（gcd（p，n/p）==1）&&（gcd\\米歇尔·马库斯2018年7月9日
（GAP）D:=列表（已筛选（[2..160]，i->非IsPrime（i）），因子）；；
a： =[]；；对于D中的i，如果Gcd（i[1]，乘积（i）/i[1]）=1且Gcd（i[长度（i）]，乘积[长度（i）]）=1，则加上（a，乘积）；fi；od；a#穆尼鲁A阿西鲁2018年7月10日~
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
4, 8, 9, 16, 25, 27, 32, 36, 49, 64, 72, 81, 100, 108, 121, 125, 128, 144, 169, 196, 200, 216, 225, 243, 256, 288, 289, 300, 324, 343, 361, 392, 400, 432, 441, 484, 500, 512, 529, 576, 588, 600, 625, 648, 675, 676, 729, 784, 800, 841, 864, 900, 961, 968, 972
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
n=300：它不是素数，300=2*2*3*5*5；极值素因子为2和5；gcd（2300/2）>1和gcd（5300/5）>1，因此2和5都不是300的幺正素除数，因此300在这个序列中-拉博斯·埃利默，由更正杰佩·斯蒂格·尼尔森2017年6月27日
|
|
|
数学
|
ma[x_]：=部件[Reverse[Flatten[FactorInteger[x]]]，2]mi[x_]:=部件[Flatten[FactorInteger[x]]，1]k=0；Do[s=mi[n]；s1=ma[n]；如果[！等于[GCD[s，n/s]，1]&&！等于[GCD[s1，n/s1]，1]&&！PrimeQ[n]，打印[n]]，{n，2，1000}]
|
|
|
黄体脂酮素
|
（PARI）为A080366（n）=e=系数（n）[，2]；e&&e[1]>1&&e[#e]>1\\杰佩·斯蒂格·尼尔森，2017年6月27日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 2, 0, 0, 0, 0, 1, 1, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 0, 2, 1, 2, 0, 0, 1, 1, 3, 0, 1, 0, 3, 4, 1, 0, 2, 0, 0, 2, 1, 0, 3, 1, 1, 1, 1, 0, 4, 0, 1, 2, 0, 3, 5, 0, 1, 2, 3, 0, 1, 0, 1, 0, 3, 4, 1, 0, 2, 0, 1, 0, 5, 2, 1, 2, 3, 0, 1, 6, 3, 1, 1, 4, 4, 0, 0, 2, 0, 0, 5, 0, 5, 1
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,15
|
|
|
评论
|
给定n个点，将它们排序为可能的最方形矩形点阵。现在将点排序为尺寸等于前面矩形较小尺寸的方形点阵。a（n）是剩余的点数。质数n的a（n）通常为0（质数点上的最平方且唯一的矩形点阵是线性点阵）。a（n）！=0 iff n是的成员A080363号.
|
|
|
链接
|
|
|
|
例子
|
a（6）=1，因为6大于sqrt（6）的最小除数是3，6小于sqrt
|
|
|
数学
|
num[n_]：=如果[OddQ[DivisorSigma[0，n]]，Sqrt[n]，Divisors[n][[Divisor Sigma[0，n]/2+1]]]den[n]：=如[OddQ[DivisortSigma\0，n]，Sqrt[n]、Divisors[n][[DivisorSigma+0，n>/2]]表[Mod[num[n]，den[n]]，{n，1，128}]
|
|
|
黄体脂酮素
|
（PARI）
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
Joseph Biberstine（jrbibers（AT）indiana.edu），2004年12月17日
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.008秒内完成
|
