%I#33 2023年11月17日20:13:45
%S 2,24,71,89180181192214256319413447522547623659756824,
%电话8729019209291020102110321053108411251176123713081389,
%电话:148014811492151315441585163616971768184919401941195219732005
%N模拟A121805,但以2开头。
%C该序列与A121805似乎没有共同术语。此外,该序列至少存在1551000000个术语_Jacques ALARDET_,2008年7月22日
%C序列的最后一项是a(194697747222394)=99999999999999 18_Giovanni Resta_,2019年11月30日
%D E.Angelini,“Jeux de suites”,摘自《Pour La Science档案》,第32-35页,第59卷(Jeux math'),2008年4月/6月,巴黎。
%H Alois P.Heinz,<a href=“/A139284/b139284.txt”>n,a(n)表,n=1.-10000</a>
%H Carlos Rivera,<a href=“https://www.primepuzzles.net/puzzles/puzz_980.htm“>谜题980。“逗号”序列</a>,主要谜题和问题连接。
%p a:=proc(n)选项记忆;局部k,t,y;如果n=1,则2其他k:=a(n-1);对于从0到9的y,dot:=k+10*irem(k,10)+y;如果转换(t,base,10)[-1]=y,则返回t fiod;空fi结束:序列(a(n),n=1..80);#_Alois P.Heinz,2009年8月13日
%ta[1]=2;a[n_]:=a[n]=对于[x=Mod[a[n-1],10];y=0,y<=9,y++,an=a[n-1]+10*x+y;如果[y==整数位数[an][[1],则返回[an]]];阵列[a,80](*_Jean-François Alcover_,2014年11月25日*)
%o(Python)
%o从itertools导入岛
%o def agen():#术语生成器
%o an,y=2,1
%o当y<10时:
%o产生an
%o an,y=an+10*(an%10),1
%o当y<10时:
%o如果str(an+y)[0]==str(y):
%o an+=y
%o中断
%o y+=1
%o打印(列表(islice(agen),47))#_Michael S.Branicky_,2022年4月8日
%以10为基数的Y逗号序列,以1、2、4、5、6、7、8、9、10开头,分别是A121805、A139284、A366492、A367337、A367350、A367351、A36735.2、A36.7353、A3673.54。以3开头很简单,以11、12、13开头的基本上是重复的。
%Y参考A330128和A330129。
%K nonn,基础,fini
%O 1,1号机组
%A _N.J.A.Sloane(基于Angelini的文章),2008年6月8日
%E更多条款,来自_Alois P.Heinz,2009年8月13日
|