%I#31 2023年7月23日15:43:50

%S 0,1,2,2,2,3,3,33,3,1,3,3、3,3~3,3,2,3,3，3,3'，3,4,4,4，

%T 4,4,4,1,4,4，4,4'，4,4，

%U 4,4,4,1,4,4，4,4~4,4,4-4,4.4，4,4

%N a（0）=0，对于N>0，a（N）=最大k，使得A002110（k-1）<=N，其中A002110。

%C对于n>0：a（n）=（A235168中第n行的长度）=A055642（A049345（n））。

%C对于n>0，a（n）给出n的初等基展开长度。此外，零后，每个值n出现A061720（n-1）次_2019年10月19日，Antti Karttunen

%H Reinhard Zumkeller，n的表，n=0..10000的a（n）</a>

%H<a href=“/index/Pri#primorialbase”>与primorial base相关序列的索引条目</a>

%F来自_Antti Karttunen_，2019年10月19日：（开始）

%F a（n）=A061395（A276086（n））。

%F对于所有n>=0，a（n）>=A267263（n）。

%F对于所有n>=1，A000040（a（n））>A328114（n）。（结束）

%p A235224:=程序（n）

%p局部k；

%p如果n=0，则

%p 0；

%p其他

%p代表0 do中的k

%p如果A002110（k-1）>n，则

%p返回k-1；

%p end if；

%p端do：

%p end if；

%p结束程序：#_R.J.Mathar_，2021年4月19日

%t primarial[n_]：=时间@@Prime[Range[n]]；

%t a[n_]：=TakeWhile[primarial/@Range[0，n]，#<=n&]//长度；

%t表[a[n]，{n，0，100}]（*Jean-François Alcover_，2021年10月27日*）

%o（哈斯克尔）

%o a235224 n=长度$takeWhile（<=n）a002110_list

%o（PARI）A235224（n）={my（s=0，p=2）；while（n，s++；n=n\p；p=下一素数（1+p））；（s）；}；\\_2019年10月19日，Antti Karttunen

%o（PARI）A235224（n，p=2）=如果（！n，n，if（n<p，1，1+A235222（n\p，下一素数（p+1）））；\\（递归执行）-Antti Karttunen，2019年10月19日

%Y参见A000040、A002110、A049345、A055642、A061395、A061720、A084558、A267263、A276086、A235168、A328114、A32804、A3280405、A328406。

%K nonn公司

%0、3

%2014年1月5日

%2019年10月19日，安蒂·卡图内恩更正E名称以匹配数据