OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由支持OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A135643美元 直线数>99。 17

%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日

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年6月18日21:09。包含373487个序列。(在oeis4上运行。)