|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
pnsQ[n_]:=PrimeQ[Length[NestWhileList[If[EvenQ[#],#/2,3#+1]&,n,#>1&]]-1];选择[Prime[Range[500]],pnsQ](*哈维·P·戴尔2016年11月28日*)
|
|
黄体脂酮素
|
(PARI)A006577号(n) =本人;而(n>1,n=如果(n%2,3*n+1,n/2);s++);秒
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
肯特·爱德华·海斯(hayske(AT)gmail.com),2010年4月8日
|
|
状态
|
经核准的
|