A048991-OEIS公司

A048991号

写下数字1、2、3，。。。但省略所有早期术语串联中出现的任何数字（例如12、23或31…）。

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 29, 30, 32, 33, 35, 36, 37, 38, 39, 40, 43, 44, 46, 47, 48, 49, 50, 54, 55, 57, 58, 59, 60, 65, 66, 68, 69, 70, 76, 77, 79, 80, 87, 88, 90, 99, 100, 102, 103, 104, 105, 106, 107, 108, 109, 110, 112

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,2

类似于“守时鸟”A131881号，不早于其在字符串123…9101112…中的“自然”位置出现的数字，但计算起来更复杂，因为这里必须考虑省略的数字。包含十次方A011557号作为子序列，在索引（1，10，63，402，2954，…）处，给出n位项的数量为（9，53，339，2552，…）-M.F.哈斯勒2019年10月25日

参考文献

由10岁的汉娜·罗尔曼发明。

链接

T.D.Noe，n=1..10000时的n，a（n）表

尼克·霍布森，此序列的Python程序

例子

12被省略，因为我们在序列的开头看到了“1,2”；101被省略，因为我们可以看到“10,1[1]”；等。

由于省略了12，因此21不会“更早”出现，并且它是按此顺序出现的，但不会出现在A131881号，因为它发生在“12,13”之前-M.F.哈斯勒2019年10月25日

数学

清除[a]；a[1]=1；s=“1”；a[n_]：=a[n]=Catch[For[k=a[n-1]+1，True，k++，If[StringFreeQ[s，t=ToString[k]]，s=s<>t；投掷[k]]]；表[a[n]，{n，1，75}](*Jean-François Alcover公司2013年1月9日*）

黄体脂酮素

（Python）#请参阅Hobson链接

（哈斯克尔）

导入数据。列表（isInfixOf）

a048991 n=a048991_列表！！（n-1）

a048991_list=f[1..][]其中

f（x:xs）ys|xs'`isInfixOf`ys=f xs-ys

|否则=x:f xs（xs'++ys）

其中xs'=反向$show x

--莱因哈德·祖姆凯勒2011年12月5日

（PARI）D=[]；对于（n=1199，对于（i=0，#D-#D=数字（n），D[i+1..i+#D]==D&&next（2））；打印1（n“，”）；D=凹度（D，D））\\M.F.哈斯勒2019年10月25日

交叉参考