搜索: 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.006秒内完成
|