issp:=n->是（非isprime（n）和numtheory[bigomega]（n）=2）：
ithsp:=proc（n）选项记忆；局部k；对于1中的k+
`如果`（n=1，1，ithsp（n-1））而不是issp（k）做od；k个
结束时间：
ps:=proc（i，j）选项记住；
ithprime（j）+`如果`（i=j，0，ps（i，j-1））
结束时间：
ss:=proc（i，j）选项记忆；
ithsp（j）+`如果`（i=j，0，ss（i，j-1））
结束时间：
a： =proc（n）选项记忆；局部i，j，k，l，p，s；
i、 j，k，l，p，s：=1，n，1，n，ps（1，n），ss（1，n）；
如果p=s，则返回p
elif p<s则i：=i+1；j： =j+1；p： =ps（i，j）
否则k:=k+1；l： =l+1；s： =ss（k，l）
现场
结束时间：
