登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 


A064379美元
一种不规则三角形,其第n行是一列数,这些数对n(n=2,3,…)是无限素数。
5
1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 4, 5, 1, 2, 3, 4, 5, 6, 1, 3, 5, 7, 1, 2, 3, 4, 5, 6, 7, 8, 1, 3, 4, 7, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 5, 7, 9, 10, 11, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 3, 4, 5, 9, 11, 12, 13, 1, 2, 4, 7, 8, 9, 11, 13, 14, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
抵消
2, 3
评论
小于n的整数没有n的公共无穷除数。
例子
irelprime[6]={1,4,5},因为iDivisors[6]={1,2,3,6},iDivisor[4]={1,4],所以4是无穷相对素数到6,因为它缺少与6共同的无穷除数。
对于n=2。。8i素数[n]给出了{1},{1,2},}1,2,3},1,2,3,4},[1,4,5},,1,2,3,5,6},2,3,7}。
三角形起点:
2: 1;
3: 1, 2;
4: 1, 2, 3;
5: 1, 2, 3, 4;
6: 1, 4, 5;
7: 1, 2, 3, 4, 5, 6;
8: 1, 3, 5, 7;
9: 1, 2, 3, 4, 5, 6, 7, 8;
10: 1, 3, 4, 7, 9;
11: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10;
12: 1, 2, 5, 7, 9, 10, 11;
13: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12;
14: 1, 3, 4, 5, 9, 11, 12, 13;
15: 1, 2, 4, 7, 8, 9, 11, 13, 14;
数学
irelprime[n_]:=选择[temp=iDivisors[n];范围[n],交集[iDivisors[#],温度]=={1}&];(*,iDivisors of n as*)bitty[k_]:=并集[Flatten[Outer[Plus,Sequence@@{0,#1}和/@Union[2^Range[0,Floor[Log[2,k]]]*Reverse[Integer Digits[k,2]]]];iDivisors[k_Integer]:=排序[(Times@@(First[it]^(#1/.z->List))&)/@Flatten[Outer[z,Sequence@@bitty/@Last[it=Transpose[FactorInteger[k]]],1]];iDivisors[1]:={1};
infCoprimQ[n1_,n2_]:=模块[{g=GCD[n1,n2]},如果[g==1,True,AllTrue[FactorInteger[g][[;;,1]],位与@@IntegerExponent[{n1,n2},#]==0&]]];row[n_]:=选择[Range[n-1],infCoprimQ[#,n]&];表[行[n],{n,2,16}]//压扁(*阿米拉姆·埃尔达尔,2023年3月26日*)
黄体脂酮素
(PARI)是非互质(n1,n2)={my(g=gcd(n1、n2),p,e1,e2);如果(g==1,返回(1));p=因子(g)[,1];对于(i=1,#p,e1=估值(n1和p[i]);e2=估值(n 2,p[i]]);如果[位和(e1和e2)>0,返回(0));1;}
行(n)=选择(x->i互素(x,n),向量(n-1,i,i))\\阿米拉姆·埃尔达尔2023年3月26日
关键字
非n,标签
作者
沃特·梅森2001年9月27日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年9月21日11:40。包含376084个序列。(在oeis4上运行。)