检验过的
经核准的
提出
编辑
f[n_]:=块[{p=2},而[!素数Q[2n-p],p=NextPrime@p];2n(p-1)-p^2];数组[f,59,2](*罗伯特·威尔逊v,3月25日, 2012 *)
(PARI)a(n)=n+=n;对于素数(p=2,默认(素数极限),如果(isprime(n-p),return(p*n-p^2-n))\\查尔斯·格里特豪斯四世,3月26日, 2012
f[n_]:=块[{p=2},而[!素数Q[2n-p],p=NextPrime@p];2n(p-1)-p^2];数组[f,59,2](*_罗伯特·威尔逊v, _, 2012年3月25日*)
OEIS服务器: https://oeis.org/edit/global/2036
Isaac E.Lambert和_查尔斯·格里特豪斯四世_, , <a href=“/A137516型/b137516.txt“>n表,n=2..100000时a(n)(Lambert的前100个术语)
OEIS服务器: https://oeis.org/edit/global/1915
Isaac E.Lambert和_查尔斯·格里特豪斯四世, _, <a href=“/A137516型/b137516.txt“>n,a(n)的表,n=2..10000</a>(Lambert的前100项)
(PARI)a(n)=n+=n;forprime(p=2,默认值(primelimit),if(isprime(n-p),return(p*n-p^2-n))\\_查尔斯·格里特豪斯四世, _, 2012年3月26日
OEIS服务器: https://oeis.org/edit/global/1914
_艾萨克E类. 兰伯特 (兰博迪(自动变速箱)无线局域网.教育), _, 2008年4月23日
OEIS服务器: https://oeis.org/edit/global/1686
编辑人_N.J.A.斯隆 (尼亚斯(自动变速箱)研究.自动变速箱.通用域名格式), _, 2008年5月23日
OEIS服务器: https://oeis.org/edit/global/110
Isaac E.Lambert和Charles R Greathouse IV,<a href=“/A137516型/编号137516_1.txt“>n的表,n=2..100000时a(n)(Lambert的前100个术语)