显示找到的8个结果中的1-8个。
第页1
1, 2, 4, 8, 3, 16, 6, 32, 5, 12, 64, 10, 7, 24, 128, 20, 9, 14, 48, 256, 40, 13, 11, 18, 28, 96, 512, 80, 15, 26, 22, 36, 17, 56, 192, 1024, 160, 30, 52, 21, 25, 44, 19, 72, 34, 112, 384, 2048, 29, 320, 23, 60, 27, 104, 42, 50, 88, 38, 144, 68, 31
1, 2, 3, 4, 6, 8, 11, 15, 20, 27, 36, 48, 64, 85, 116, 153, 208, 273, 366, 493, 649, 888, 1161, 1579, 2092, 2784, 3783, 4946, 6772, 8875, 11977, 16065, 21193, 28979, 37823, 51633, 68117, 91045, 123377, 161622, 221441, 289493, 392259, 523328, 692771, 945393
数学
a={1};nn=2^14;Do[AppendTo[a,Complement[Range[i+2 nn],a][[IntegerReverse[i,2]]],{i,2,nn}];数组[a[[2^#]]&,Floor@Log2@长度@a-1,0]]
1, 2, 5, 9, 13, 17, 23, 29, 33, 43, 51, 53, 61, 65, 83, 95, 107, 113, 125, 129, 163, 183, 199, 203, 219, 233, 237, 253, 257, 323, 359, 383, 407, 419, 443, 449, 473, 485, 509, 513, 643, 711, 751, 783, 791, 823, 851, 859, 891, 913, 921, 953, 981, 989, 1021, 1025
评论
除了a(2)=2之外,其他项都是奇数。
(2^k-1)+-2是k>1序列中的项。
让S=A119435号.S(2^k+1)=S(2^k-1)+4,而S(2*k)是S中的局部极小值。
S(2^k-1)=2^(k+1)-3和S(2*k+1)=2*k*1。
数学
a={1};nn=514;r=0;Do[AppendTo[a,Complement[Range[i+2 nn],a][[IntegerReverse[i,2]]],{i,2,nn}];收获[Do[If[#>r,r=#;Sow[r]]&@a[[i]],{i,长度[a]}]][[-1,-1]]]
1, 2, 3, 5, 7, 9, 11, 15, 17, 19, 23, 27, 31, 33, 35, 39, 47, 55, 63, 65, 67, 71, 79, 87, 95, 111, 119, 127, 129, 131, 135, 143, 159, 175, 191, 207, 223, 239, 255, 257, 259, 263, 271, 287, 303, 319, 351, 367, 383, 415, 431, 447, 479, 495, 511, 513, 515, 519, 527
评论
让S=A119435号k>0的.S(2^k+-1)是S中的记录,因此(2^k-1)和(2^k+1)出现在此序列中。
S(2^k-1)=2^(k+1)-3和S(2^k+1)=2^(k+1)+1,而S(2^k)是局部最小值。
数学
a={1};nn=527;r=0;Do[AppendTo[a,Complement[Range[i+2 nn],a][[IntegerReverse[i,2]]],{i,2,nn}];收割[Do[If[#>r,r=#;母猪[i]]&@a[[i]],{i,长度[a]}]][[-1,-1]]]
1, 2, 4, 3, 7, 6, 11, 5, 12, 10, 17, 9, 23, 16, 19, 8, 29, 18, 35, 15, 28, 25, 41, 14, 31, 34, 30, 24, 51, 27, 59, 13, 44, 43, 47, 26, 67, 52, 58, 22, 77, 42, 83, 38, 49, 61, 89, 21, 70, 46, 73, 53, 99, 45, 69, 37, 88, 75, 111, 40, 119, 85, 72, 20, 94, 64, 127, 63, 103, 68, 137, 39, 143, 97, 79, 78, 106, 87, 151, 36
评论
a(2^n)的术语为:1、2、3、5、8、13、20、32、48、71、105、156、236、354、542、815、1228。。。
固定点开始为:1、2、6、10、18、42、92、26372。。。
例子
根据定义,a(1)=1。
之后,对于n=2,当其素因子分解右移一次时,结果如下A064989号(2) =1,所以我们选择第一个尚未使用的正自然数,即2,因此a(2)=2。
对于n=3=p_2(3是第二素数),当其素因式分解右移一次时,结果A064989号(3) =2=p_1,所以我们选择仍然未使用的数字中的第二个,即4,因此a(3)=4。
对于n=4,就像所有2的幂一样,右移的结果是1,所以我们选择最小的未使用的数字,即3,因此a(4)=3。
对于n=5=p_3,A064989号(5) =3=p_2,所以我们从[5,6,7,8,…]中选择第三个最小的仍然未使用的数字,即7,因此a(5)=7。
黄体脂酮素
(方案,具有来自安蒂·卡图恩的IntSeq-library)
(定义1(A246165型n) (如果(<=n 1)n(let loop(i 1))(n第三个(-(A064989号n) 1))(cond(非lte(A246166号i) n)(如果(零?n-th-one)i(回路(+i 1)(-n-th-one 1)))(否则(回路(+i 1)n-th-oone))))
;; 在a为零的情况下,我们也考虑a>b(即不小于或等于b)。
;; (使用defineperm1-macro使用的有状态缓存系统时需要):
(define(not-lte?a b)(cond((not(number?a))#t)(else(>a b)))
a(1)=1,之后每个a(n)=(A004074号(n) +1)-从序列中尚未出现的数字中选择的第个数字。
+10 5
1, 2, 4, 3, 6, 8, 7, 5, 10, 12, 14, 13, 16, 15, 11, 9, 18, 20, 22, 24, 23, 26, 28, 27, 30, 29, 25, 32, 31, 21, 19, 17, 34, 36, 38, 40, 42, 41, 44, 46, 48, 47, 50, 52, 51, 54, 53, 49, 56, 58, 57, 60, 59, 55, 62, 61, 45, 43, 64, 63, 39, 37, 35, 33, 66, 68, 70, 72, 74, 76, 75, 78, 80, 82, 84, 83, 86, 88, 90, 89, 92, 94, 93, 96, 95, 91
数学
f[n_]:=块[{a={1},g,b=范围[2,n]},g[1]=g[2]=1;g[x_]:=g[x]=g[g[x-1]]+g[x-g[x-2];Do[{AppendTo[a,#[[1,1]]],Set[b,Last@#]}&@If[#>Length@b,Break[],TakeDrop[b,{#}]]&@(2g[#]-#+1)&@k,{k,2,n}];a] ;f@97(*迈克尔·德弗利格,2015年12月29日,10.2版,基于哈维·P·戴尔在A004074号*)
黄体脂酮素
(方案,带有Antti Karttunen的IntSeq-library中的defineperm1-macro)
;; 在a为#f的情况下,我们也考虑a>b(即不小于b)。
;; (由于defineperm1-macro使用的有状态缓存系统):
(define(not-lte?a b)(cond((not(number?a))#t)(else(>a b)))
a(1)=1,之后每个a(n)=A002487号(n) -从序列中尚未包含的数字中选择的第个数字。
+10 三
1, 2, 4, 3, 7, 6, 9, 5, 12, 11, 15, 10, 17, 14, 18, 8, 21, 20, 25, 19, 28, 24, 29, 16, 31, 27, 34, 23, 35, 30, 33, 13, 38, 37, 43, 36, 47, 42, 48, 32, 51, 46, 55, 41, 56, 49, 53, 26, 57, 52, 62, 45, 65, 59, 64, 40, 66, 60, 69, 50, 68, 58, 63, 22, 71, 70, 77, 67, 82, 76, 83, 61, 87, 81, 92, 75, 93, 84, 89, 54, 94, 88, 101, 80
数学
f[n_]:=块[{a={1},g,b=Range[2,n]},g[1]=1;g[x_]:=g[x]=如果[EvenQ@x,g[x/2],g[(x-1)/2]+g[(x+1)/2]];Do[{AppendTo[a,#[[1,1]]],Set[b,Last@#]}&@If[#>Length@b,Break[],TakeDrop[b,{#}]]&@g@k,{k,2,n}];a] ;f@103(*迈克尔·德弗利格,2015年12月29日,10.2版,之后N.J.A.斯隆在A002487号*)
黄体脂酮素
(方案,带有Antti Karttunen的IntSeq-library中的defineperm1-macro)
(定义1(2016年2月13日n) (如果(<=n 1)n(让循环((i 1))(第n个循环(+-1(A002487号n) ))(cond(非lte?)(A266414型i) n)(如果(零?第n个)i(循环(+i 1)(-第n个1)))(否则(循环(+i 1)第n个))))
;; 在a为#f的情况下,我们也考虑a>b(即不小于b)。
;; (由于defineperm1-macro使用的有状态缓存系统):
(define(not-lte?a b)(cond((not(number?a))#t)(else(>a b)))
设k是n的最大奇除数,设S是目前为止不在序列中的正整数序列。则a(n)=S(k)。
+10 1
1, 2, 5, 3, 9, 7, 13, 4, 17, 12, 21, 10, 25, 18, 29, 6, 33, 23, 37, 16, 41, 28, 45, 14, 49, 34, 53, 24, 57, 39, 61, 8, 65, 44, 69, 31, 73, 50, 77, 22, 81, 55, 85, 38, 89, 60, 93, 19, 97, 66, 101, 46, 105, 71, 109, 32, 113, 76, 117, 52, 121, 82, 125, 11, 129, 87, 133
评论
正整数的置换。
对于奇数n,a(n)=2n-1,否则a(n)<2n-1。
例子
对于n=6,n的最大奇数除数是k=3。到那一点的顺序是1、2、5、3、9。尚未按顺序排列的数字是S=4、6、7、8、10。。。其中的第三个是7,因此是a(6)。
数学
折叠[Append[#1,Complement[Range[Max[#1]+(r=#2/2^IntegerExponent[#2,2])],#1][[r]]&,{1},Range[2,67]]
搜索在0.007秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日19:38。包含376089个序列。(在oeis4上运行。)
|