显示找到的5个结果中的1-5个。
第页1
3, 1, 7, 2, 14, 13, 12, 5, 11, 10, 6, 4, 31, 26, 27, 9, 22, 28, 8, 15, 53, 51, 50, 55, 52, 54, 48, 61, 58, 56, 62, 57, 59, 23, 39, 49, 20, 47, 44, 46, 43, 42, 45, 25, 29, 30, 17, 16, 18, 21, 19, 124, 107, 106, 109, 110, 111, 24, 118, 117, 114, 125, 127, 104
不同正整数的最早序列,例如gcd(a(n),a(n-1))的取值不超过两倍。
+10 7
1, 2, 3, 6, 4, 8, 10, 5, 15, 9, 18, 12, 16, 24, 30, 20, 40, 32, 48, 36, 27, 54, 72, 60, 45, 75, 25, 50, 70, 7, 14, 28, 42, 21, 63, 126, 84, 56, 112, 64, 96, 120, 80, 100, 150, 90, 108, 81, 162, 216, 144, 168, 140, 35, 105, 210, 180, 135, 225, 300
评论
假设a(n)是正整数的置换。
素数似乎是按自然顺序出现的。31显示为(7060)。在前10000项中没有发现p>=37的素数。
使a(n)=n的数字n为1、2、3、12、306。。。
例子
在a(9)=15之后,已经使用了值1、2、3、4、6和8,而禁止使用7,因为gcd(15,7)=1,并且gcd的值已经在(1,2)和(2,3)出现了两次。既不使用也不禁止的最小值是9,因此a(10)=9。
数学
a={1};used=数组[0&,10000];Do[i=1;而[MemberQ[a,i]||使用[[l=GCD[a[-1]],i]]>=2,i++];使用[[l]]++;附加到[a,i],{n,2100}];一个(*伊凡·内雷廷2015年4月18日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(删除);导入数据。列表。已订购(成员)
a257218 n=a257218_列表!!(n-1)
a257218_list=1:f 1[2..]a004526_list,其中
f x zs cds=g zs,其中
g(y:ys)|cd`成员`cds=y:f y(删除y zs)(删除cd cd)
|否则=gys
其中cd=gcd x y
交叉参考
匹配施加在a(n)和a(n-1)上的某些条件的其他不同正整数的最小序列:
a(1)=1;对于n>1,a(n)=最不早出现的最小正整数,使得{a(k)|1<=k<=n}和{a(k)XOR a(k-1)|1<=k<=n}是不相交的不同数集。
+10 5
1, 2, 4, 8, 5, 10, 16, 7, 9, 17, 32, 11, 18, 33, 19, 35, 20, 34, 22, 40, 21, 41, 28, 36, 27, 64, 29, 38, 31, 37, 65, 30, 66, 39, 68, 42, 67, 44, 70, 45, 69, 128, 46, 72, 47, 77, 129, 71, 131, 73, 130, 74, 132, 75, 134, 79, 136, 80, 133, 81, 135, 84, 137, 82, 139, 85
数学
a={1};使用={};Do[k=1;当[MemberQ[Join[a,used],k]||MemberQ[加入[a,use]时,r=BitX或[a[-1]],k],k++];附录[a,k];附加到[已使用,r],{n,2,66}];一个(*伊凡·内雷廷2017年3月13日*)
3, 6, 12, 13, 15, 26, 23, 14, 24, 49, 43, 25, 51, 50, 48, 55, 54, 52, 62, 61, 60, 53, 56, 63, 91, 93, 59, 57, 58, 100, 95, 92, 101, 99, 110, 105, 111, 106, 107, 104, 197, 174, 102, 103, 98, 204, 198, 196, 202, 203, 200, 206, 207, 205, 201, 199, 216, 213, 212
不同正整数的最早序列,使得(a(n)XOR n)的所有值都是不同的。
+10 2
1, 3, 4, 2, 6, 8, 5, 7, 12, 14, 16, 17, 18, 20, 19, 9, 15, 10, 24, 25, 28, 26, 29, 11, 13, 32, 34, 33, 21, 37, 35, 22, 30, 23, 27, 49, 50, 48, 53, 31, 56, 58, 64, 65, 66, 68, 67, 69, 70, 72, 71, 73, 74, 77, 75, 78, 80, 82, 85, 76, 79, 88, 90, 36, 38, 51, 59, 39, 54, 63, 57, 40
数学
a=使用={};Do[k=1;当[MemberQ[a,k]||MemberQ[已使用,x=BitX或[k,n]],k++]时;附加到[a,k];附加到[已使用,x],{n,72}];一
搜索在0.005秒内完成
|