%I#49 2023年5月11日09:21:32
%S 12,21,23,31,32,34,41,42,43,45,51,52,53,54,56,61,62,63,64,65,67,71,72,
%电话:73,74,75,76,78,81,82,83,84,85,86,87,89,91,92,93,94,95,96,97,98,99,
%电话:101110111112121122123131132141142151152161162171
%N“早起鸟”数字:将自然数字写在字符串1234567891011213中……序列给出了出现在字符串中自然位置之前的数字,按递增顺序排序(参见A117804)。
%C根据阿根廷益智游戏创作者詹姆·波尼亚奇克的一个想法,这些数字是由马丁·加德纳在2005年的《数学》杂志上介绍的。《地平线》,由MAA出版。
%C A048992是一个类似的序列,但不同的是它不包含21等-请参阅A048992中的注释。
%C A220376(n)=a(n)在123456789101121314151617181….-中的位置_Reinhard Zumkeller,2012年12月13日
%D Martin Gardner,先验与早期鸟类,数学。地平线,XIII(2)(2005),第5、34页(由美国数学协会出版)。
%H Joshua Zucker和R.Zumkeller,n的表,a(n)表示n=1..10000
%H S.W.Golomb,<a href=“http://www.itsoc.org/publications/nltr/it1202.pdf“>早期鸟类数量,IEEE Inform.Soc.Newsletter中的谜题专栏,52(4)(2002),第10页。
%H S.W.Golomb,<a href=“http://www.itsoc.org/publications/nltr/it0303web.pdf“>早鸟数字:解决方案</a>,IEEE Inform.Soc.时事通讯,53(1)(2003),第30页。
%F逐渐地,早期鸟类数量的密度为1[Golomb]。
%e“12”出现在字符串的开头,位于“11”之后的位置之前,成员也是如此。
%e 123、23、1234、234、34。。。然后按递增顺序排序,得到12、21、23、31…-_N.J.A.Sloane,2019年8月28日
%t s=“”;收割[For[n=1,n<=200,n++,sn=ToString[n];如果[StringPosition[s,sn,1]=!={},母猪[n]];s=s<>sn]][[2,1]](*_Jean-François Alcover_,2016年11月4日,在_Klaus Brockhaus_*之后)
%o(ARIBAS)s:=“”;对于n:=1至200 do sn:=itoa(n);
%o如果substr_index(s,sn)>=0,则写入(n,“,”);结束;
%o s:=concat(s,sn);结束;(*克劳斯·布罗克豪斯,2007年7月23日*)
%o(UBASIC)
%o 10 X=“”
%o 20,N=1至396
%o 30 A=切割spc(str(N))
%o 40如果仪器(X,A)>0,则打印N;
%o 50 X+=A
%o 60下一个N
%o#_Warut Roonguthai,2007年7月23日
%o(哈斯克尔)
%o导入数据。列表(isPrefixOf,find)
%o导入数据。也许(来自Just)
%o a116700 n=a116700_列表!!(n-1)
%o a116700_list=早期筛选[1..],其中
%o early z=not(反向(show(z-1))`isPrefixOf`fst bird),其中
%o bird=fromJust$find((show z`isPrefixOf`)。snd)xys系列
%o xys=迭代(\(us,v:vs)->(v:us,vs))
%o([],concatMap显示[0..])
%o——Reinhard Zumkeller,2012年12月13日
%o(Python)
%o定义缺陷(极限):
%o s,alst=“”,[]
%对于范围(1,极限+1)中的k,为o:
%o sk=str(k)
%o如果sk在s:alst.append(k)中
%o s+=斯克
%o返回alst
%o印刷(aupto(171))#_Michael S.Branicky_,2021年12月21日
%Y参考A117804。A131881提供补充。
%Y参见A048991和A048992(罗曼编号)。
%Y参见A007908(除首字母1外的子序列)。
%K nonn,基础,很好,看
%O 1,1号机组
%贝尔纳多·雷卡曼,2007年7月22日
%E更多条款,来自Wrut Roonguthai和Klaus Brockhaus,2007年7月23日
%E Golomb链接来自Jeremy Gardiner_,2007年7月23日
|