0,1

罗伯特·以色列，n=0..250时的n，a（n）表

f： =proc（n）option remember；局部q，d，v；

q：=程序名（n-1）；

d从1 do开始

v：=下一次时间（q*10^d）；

如果v<（q+1）*10^d，则返回vfi

外径

结束过程：

f（0）：=7：

地图（f，[$0..20]）#罗伯特·以色列2020年1月26日

[功能[{a，n}以最快的速度[函数[{a，n}以期，以期能以最快的方式，将[三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、三、四、四]）/二、二、三、三、三、三、三、三、三、三、三、四、十、十^（i-1）}]三、三、三、四、十、十（i-1）}、三、三、无限、无穷大]]]@[除除除三、三、三、三、三、三、三、三、三方面-1]]]}&，{7}，17](*迈克尔·德维利格2020年1月26日*）

（平价）

下一个_A048552号（p） =for（i=1，oo，my（q=nexttime（p*=10））；q-p>10^i | | return（q））

A048552号（n，p=7）=向量（n，i，i>1&&p=下一个_A048552号（p） ；p）\\M、 哈斯勒2020年1月26日

囊性纤维变性。A048549号,A048550型,A048551号,A048552号,A048553号,A048554号,A048555号,A048556号.

上下文顺序：A039920型 A100895号 A065537型*A260033号 A067307型 A334135型

相邻序列：A048549号 A048550型 A048551号*A048553号 A048554号 A055485号

不,基础

帕特里克·德盖斯特1999年5月15日

经核准的