提出
经核准的
编辑
更正名称以匹配数据- _ 通过_2019年10月19日，Antti Karttunen
primorial[n_]：=时间@@Prime[Range[n]]；
a[n_]：=TakeWhile[primarial/@Range[0，n]，#<=n&]//长度；
表[a[n]，{n，0，100}](*Jean-François Alcover公司2021年10月27日*）
A235224型：=进程（n）
局部k；
如果n=0，则
0;
其他的
对于0中的k do
如果A002110号（k-1）>n则
返回k-1；
结束条件：；
结束do：
结束进程：#R.J.马塔尔，2021年4月19日
