%I#30 2022年8月3日02:34:04
%S 1111231351471592102223424625832133345357369420432,
%电话4444564685315435556757963064265466678741753765777,
%电话:78984085286487688895196397598799911111234
%N直线数>99。
%C数字为算术级数的两位数以上的数字。数字的结构表示一条直线。在图形表示中,点通过假想线段连接。对于a(1)到a(45),该序列等于A034840。此序列中大于9876543210的每个项都是一个重复数字(A010785)。
%C注意,直线数字的顺序从10、11、12……开始。。。,98, 99, 111, 123, ... 所有2位数都是直线数字,但这里省略了<100的数字_Omar E.Pol_,2009年11月14日
%H Jens Kruse Andersen,n的表,n的a(n)=1.168</a>
%e数字3579是一个直线数字:
%e。9
%e。
%e。7 .
%e。
%e、。5 . .
%e。
%e 3。
%e。
%e。
%e。
%t选择[Range[1001300],Length[Union[Differences[Integer Digits[#]]]==1&](*哈维·P·戴尔,2012年5月9日*)
%o(哈斯克尔)
%o a135643 n=a135643_列表!!(n-1)
%o a135643_list=过滤器f[100..],其中
%o f x=所有(==0)ws,其中
%o ws=zipWith(-)(尾部vs)vs
%o vs=zipWith(-)(尾随我们)us
%o us=地图(read.return)$show x
%o---Reinhard Zumkeller,2014年9月21日
%o(PARI)是(n)=我的(d=数字(n),cvx=0,ccv=0,str=0);对于(i=1,#d-2,my(x=d[i]+d[i+2]-2*d[i+1]);如果(x>0,cvx++,x<0,ccv++,str++);return(cvx==0&&ccv==0&&str>0)\\Rémy Sigrist_,2017年8月9日
%o(Python)
%o从itertools导入计数,islice
%o定义代理():
%o progressions=[“”.join(map(str,range(i,j+1,d)))for范围(10)for范围内的i for范围(1,10-i)for范围中的d for范围(i+2*d,10)]
%o s=如果p[0]!=“0”]#向上
%o s+=[p[::-1]for p in progressions]#向下
%o s+=[d*i表示“123456789”中的d表示范围(3,11)中的i]#平坦
%o排序后的产量(set(int(w)for w in s))
%o从(int(f*d)for d in count(11)for f in“123456789”)
%o打印(列表(islice(agen),178))#_Michael S.Branicky_,2022年8月3日
%Y参考A010785、A034840。
%Y参考A135600、A135601、A135602、A135503、A135641、A13564、A163278、A167847-_Omar E.Pol_,2009年11月14日
%Y参见A247616(子序列)。
%K nonn,基础
%O 1,1号机组
%2007年11月30日,2008年12月9日,2009年11月14日
|