搜索： a100707-编号：a100707
|
| |
| |
|
|
|
1, 2, 5, 3, 19, 8, 4, 6, 17, 15, 13, 11, 9, 7, 34, 30, 28, 26, 32, 24, 22, 10, 12, 14, 16, 18, 20, 61, 57, 55, 53, 51, 49, 47, 45, 43, 41, 59, 39, 23, 114, 37, 25, 27, 21, 29, 31, 35, 112, 110, 33, 108, 106, 104, 100, 98, 96, 94, 92, 90, 88, 86, 84, 82, 80
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
黄体脂酮素
|
b文件
（哈斯克尔）
导入合格数据。映射为映射（null，insert）
导入数据。映射（空，deleteFindMin）
a227617 n=a227617_列表！！（n-1）
a227617_list=f 1空$zip a100707_list[1..]其中
f i mp（uv:uvs）
|Map.null mp=f i（未修剪Map.insert uv mp）uvs
|y==i=x:f（i+1）（未修剪Map.insert uv mp'）uvs
|否则=f i（uncry Map.insert uv mp）uvs
其中（（y，x），mp'）=删除查找最小mp
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 2, 3, 4, 5, 6, 8, 7, 9, 10, 11, 12, 13, 14, 15, 16, 17, 21, 22, 18, 24, 19, 20, 23, 25, 26, 27, 29, 30, 31, 28, 32, 36, 33, 34, 40, 35, 38, 37, 39, 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 57, 58, 49, 59, 69, 60, 61, 74, 62, 63, 64, 65
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
公式
|
|
|
|
黄体脂酮素
|
（哈斯克尔）
a100708 n=a100708_列表！！（n-1）
a100708_list=映射abs$zipWith（-）（尾部a100707_list）a100707 _ list
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 3, 7, 12, 18, 26, 35, 45, 56, 69, 83, 98, 114, 131, 150, 170, 191, 213, 236, 260, 285, 312, 340, 369, 399, 430, 462, 495, 529, 565, 602, 640, 679, 719, 760, 802, 845, 889, 935, 982, 1030, 1079, 1129, 1180, 1232, 1285, 1339, 1394, 1451, 1509, 1568, 1628, 1689
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
霍夫施塔特在讨论斯科特·金（Scott Kim）的“FIGURE-FIGURE”绘画时介绍了这一序列-N.J.A.斯隆，2013年5月25日
|
|
|
参考文献
|
E.Angelini，“Jeux de suites”，载于《Pour La Science档案》，第32-35页，第59卷（Jeux math'），2008年4月/6月，巴黎。
D.R.Hofstadter，Goedel，Escher，《巴赫：永恒的金辫子》，兰登书屋，1980年，第73页。
N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。
|
|
|
链接
|
A.S.Fraenkel，与新旧序列相关的新游戏，INTEGERS，《组合数论电子杂志》，第4卷，G6论文，2004年。
D.R.Hofstadter，埃塔·洛尔[缓存副本，具有权限]
克拉克·金伯利，互补方程《整数序列杂志》，第10卷（2007年），第07.1.4条。
|
|
|
公式
|
设a（n）=这个序列，b（n）=A030124号前缀为0。那么b（n）=mex{a（i），b（i）：0<=i<n}，a（n）=a（n-1）+b（n。（弗伦克尔）
a（1）=1，a（2）=3；a（）增加；对于n>=3，如果a（q）=a（n-1）-a（n-2）+1，对于某些q<n，则a（n）=aAlbert Neumueller（Albert.neu（AT）gmail.com），2006年7月29日
a（n）=n^2/2+n^（3/2）/（3*sqrt（2））+O（n^）（5/4））[在Jubin链接中证明]-贝诺伊特·朱宾2015年5月13日
|
|
|
例子
|
序列读数为1 3 7 12 18 26 35 45…，差异为2 4 5、6、8、9、10。。。关键是序列本身之外的每个数字都会出现差异。这个属性（以及序列和第一个差异序列都在增加的事实）定义了序列！
|
|
|
MAPLE公司
|
最大值：=5000；h：=阵列（1..5000）；h[1]：=1；a:=[1]；i:=1；b:=[]；对于从2到1000的n，如果h[n]<>1，则b:=[op（b），n]；j：=a[i]+n；如果j<maxn，则a：=[op（a），j]；h[j]：=1；i:=i+1；fi；fi；od:a；b、 #个a是A005228号，b是A030124号.
选项记忆；
局部a，fnd，t；
如果n<=1，则
op（n+1，[2，4]）；
其他的
对于来自procname（n-1）+1 do的a
fnd:=错误；
对于t从1到n+1 do
fnd:=真；
断裂；
结束条件：；
结束do：
如果没有找到，那么
返回a；
结束条件：；
结束do：
结束条件：；
结束进程：
选项记忆；
如果n<=2，则
op（n，[1,3]）；
其他的
结束条件：；
|
|
|
数学
|
a={1}；d=2；k=1；Do[While[位置[a，d]！={}，d++]；k=k+d；d++；a=附加[a，k]，{n，1，55}]；一
（*第二个节目：*）
（*拉里·莫里斯的计划，2017年1月19日：*）
d=3；a={1,3,7,12,18}；而[Length[a=Join[a，a[-1]]+累加[Range[a[[d]]+1，a[[++d]-1]]]<50]；一
（*注释：这将为序列添加尽可能多的项，因为每组序列差异中都有数字。因此，它生成的数字列表可能会长于提供的限制。显示限制为50时，生成的序列的长度为60。*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表（删除）
a005228 n=a005228_列表！！（n-1）
a005228_list=1：图1[2]，其中
图n（x:xs）=n’：图n’（删除n’xs），其中n’=n+x
（PARI）A005228号（n，print_all=0，s=1，used=0）={while（n--，used=1<<s；print_all&print1（s“，”）；for（k=s+1，9e9，bittest（used，k）&next；bittest（used，k-s）&next；used=1<<（k-s）；s=k；break））；s}\\M.F.哈斯勒2013年2月5日
|
|
|
交叉参考
|
以下是一组相关序列：A005132号,A006509号,A037257号,A037258号,A037259号,A081145号,A093903号,A099004号,A100707号,A129198号,A129199号,A140778号,A225376号,A225377号,A225378号,A225385号,A225386号,A225387号.
相关复发：
|
|
|
关键字
|
非n,容易的,美好的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
A081145号
|
| a（1）=1；此后，a（n）是尚未发生的最小正整数，并且a（n。 |
|
+10
51
|
|
|
|
1, 2, 4, 7, 3, 8, 14, 5, 12, 20, 6, 16, 27, 9, 21, 34, 10, 25, 41, 11, 28, 47, 13, 33, 54, 15, 37, 60, 17, 42, 68, 18, 45, 73, 19, 48, 79, 22, 55, 23, 58, 94, 24, 61, 99, 26, 66, 107, 29, 71, 115, 30, 75, 121, 31, 78, 126, 32, 81, 132, 35, 87, 140, 36, 91, 147, 38, 96, 155, 39
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
Slater和Velez 1977年的论文证明了该序列是正整数的置换，并推测其绝对差序列（参见A308007型)也是一种排列。如果我们称之为“第一类斯莱特-韦莱斯排列”，那么他们也构造了另一种排列（第二类），为此他们能够证明两个序列(A129198号)及其绝对差异(A129199号)是真正的排列Ferenc Adorjan，2007年4月3日
|
|
|
参考文献
|
P.J.Slater和W.Y.Velez，带差序列限制的正整数排列，II，《太平洋数学杂志》，第82卷，第2期，1979年，527-531。
|
|
|
链接
|
P.J.Slater和W.Y.Velez，具有差序列限制的正整数置换《太平洋数学杂志》，第71卷，第1期，1977年，193-196年。
|
|
|
例子
|
a（4）=7，因为上一项是4，并且已经发生了3-4、5-4和6-4的差异。
7之后，我们得到3，因为之前没有出现差异4。5在14之后，因为之前没有出现差异9。
|
|
|
数学
|
f[s_]：=块[{d=Abs[休息@s - 大多数@]，k=1}，而[MemberQ[d，Abs[k-最后@秒]]||MemberQ[s，k]，k++]；追加[s，k]]；嵌套列表[s，{1}，70](*罗伯特·威尔逊v2006年6月9日*）
f[s_]：=块[{k=1，d=Abs[大多数@ - 休息@s]，l=最后@秒}，While[MemberQ[s，k]||成员Q[d，Abs[l-k]]，k++]；追加[s，k]]；嵌套[f，{1}，70](*罗伯特·威尔逊v2006年6月13日*）
|
|
|
黄体脂酮素
|
（PARI）{SV_p1（n）=局部（x，v=6，d=2，j，k）；/*Slater-Veez置换-第一类（由F.Adorjan提出）*/x=向量（n）；x[1]=1；x[2]=2；对于（i=3，n，j=3；k=1；而（k，if（k=比特测试（v，j）||比特测试（d，abs（j-x[i-1]）），j++，v+=2^j；d+=2^abs（j-x[i-1]）；x[i]=j））；return（x）\\Ferenc Adorjan，2007年4月3日
（Python）
A081145号_list，l，s，b1，b2=[1，2]，2，3，set（），set（[1]）
对于范围（3，10**2）中的n：
i=秒
为True时：
m=abs（i-l）
如果不是（b1中的i或b2中的m）：
b1.增加（i）
b2.增加（m）
l=i
而b1中的s：
b1.删除
s+=1
打破
（哈斯克尔）
导入数据。列表（删除）
a081145 n=a081145_列表！！（n-1）
a081145_list=1:f 1[2..][]其中
f x vs ws=g vs其中
g（y:ys）=如果z`elem`ws，则gys其他y:fy（删除yvs）（z:ws）
其中z=abs（x-y）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
2, 4, 5, 6, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 27, 28, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 77, 78
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
对于任意n，满足和（i=1，n，a（i））+1<k<和（i+1，n+1，a（ii））+1的所有整数k都在序列中。例如，总和（i=1,3，a（i））+1=12，总和（i=1,4，a（ii））+1=18，因此13,14,15,16,17是按顺序排列的-贝诺伊特·克洛伊特2002年4月1日
|
|
|
参考文献
|
E.Angelini，“Jeux de suites”，载于《Pour La Science档案》，第32-35页，第59卷（Jeux math'），2008年4月/6月，巴黎。
D·R·霍夫施塔特，《哥德尔、埃舍尔、巴赫：永恒的金色辫子》，基础书籍，第1卷和第20卷。版本（1979&1999），第73页。
|
|
|
链接
|
|
|
|
公式
|
a（n）=n+sqrt（2n）+o（n^（1/2））-M.F.哈斯勒2008年6月4日[朱斌的论文证明]。
|
|
|
数学
|
（*h代表霍夫斯塔特序列A005228号*)h[1]=1；h[2]=3；h[n]：=h[n]=2*h[n-1]-h[n-2]+If[MemberQ[Array[h，n-1]，h[n-1]-h[n-2]+1]，2，1]；差异[Array[h，69]](*Jean-François Alcover公司2011年10月6日*）
|
|
|
黄体脂酮素
|
（PARI）{a=b=t=1；对于（i=1100，while（位测试（t，b++），）；打印1（b“，”）；t+=1<<b+1<<a+=b）}\\M.F.哈斯勒2008年6月4日
（哈斯克尔）
导入数据。列表（删除）
a030124 n=a030124_列表！！n个
a030124_list=图差异1[2..]其中
figureDiff n（x:xs）=x:figureDiff n'（删除n'xs），其中n'=n+x
|
|
|
交叉参考
|
参见。A005228号,A030124号,A037257号,A037258号,A037259号,A061577号,A140778号,A129198号,A129199号,A100707号,A093903号,A005132号,A006509号,A081145号,A099004号,A225376号,A225377号,A225378号,A225385号,A225386号,A225387号,A225687型.
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 2, 5, 19, 34, 61, 114, 175, 1094, 1695, 3390, 9372, 15605, 116478, 220288, 455587, 552188
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
黄体脂酮素
|
（哈斯克尔）
a227632 n=a227632_列表！！（n-1）
（a227632_list，a227633_list）=解压缩$（1，1）：f 1 1 a227617_list其中
fiv（q:qs）|q>v=（q，i）：f（i+1）qqs
|否则=f（i+1）v qs
|
|
|
关键字
|
非n,更多
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 2, 3, 5, 15, 28, 41, 71, 89, 644, 969, 2129, 6380, 9684, 10016, 10055, 160584
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
黄体脂酮素
|
（哈斯克尔）
a227633 n=a227633列表！！（n-1）
|
|
|
关键字
|
非n,更多
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
A371359型
|
| a（1）=1；对于n>1，如果存在一个未使用的正整数k（选择最小的），使得a（n）是一个独立的正整数，则a（n）=a（n-1）/k；否则，如果同样的条件适用，a（n）=a（n-1）*k。 |
|
+10
1
|
|
|
|
1, 2, 6, 24, 4, 20, 140, 14, 112, 8, 72, 3, 33, 396, 22, 286, 13, 195, 5, 80, 1360, 68, 1292, 38, 798, 21, 483, 7, 175, 4550, 130, 3510, 117, 3276, 91, 2639, 29, 899, 28768, 496, 16368, 372, 13764, 222, 8880, 185, 7585, 41, 1722, 74046, 903, 40635, 645, 29670
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
一组不同的正整数序列，其中连续项的比率（大与小）都是不同的。
|
|
|
链接
|
|
|
|
例子
|
a（1）=1:1*2=2（k=2是尚未用作除数或乘数的最小数）。
a（2）=2:2*3=6（k=3以前没有使用过）。
a（3）=6:6*4=24（k=4以前没有使用过）。
a（4）=24:24/6=4（k=6以前没有使用过）。
a（11）=72:72/24=3（k=24以前没有使用过）。注意，如果这没有导致重复项（72/12=a（3）=6），我们将使用k=12。
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.009秒内完成
|
