（Maple代码来自R.J.马塔尔2010年3月6日）
f:=进程（n，i，x）
选项记忆；
如果n=0，则
x；
elif类型（n，'even'）then
进程名称（n/2，i+1，x）；
其他的
procname（（n-1）/2，i，x*ithprime（i））；
结束条件：；
结束进程：
A005940号：=进程（n）
f（n-1，1，1）；
结束进程：
局部k；
从1到k
如果A005940号（k） =n那么 # 代码 重新使用
返回k；
结束条件：；
结束do；
结束进程： # _R（右）. J型. 马塔尔_, 3月 06 2010)
