登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

 

标志

感谢所有在我们年度呼吁中捐款的人!
若要查看捐赠者名单或捐款,请参阅OEIS基金会主页

提示
问候整数序列的在线百科全书!)
A089194 素数P,使得P-1和P+ 1是立方体或更高的无功。
2, 3, 5,11, 13, 19,29, 37, 43,59, 61, 67,83, 101, 131,139, 149, 157,173, 179, 181,197, 211, 227,229, 277, 283,293, 307, 317,331, 347, 349,373, 389, 397,373, 389, 397,γ,γ,γ,γ,γ 列表图表参考文献历史文本内部格式
抵消

1,1

评论

A212793A(a(n)- 1)=A212793A(a(n)+1)=1。-莱因哈德祖姆勒5月27日2012

链接

Reinhard Zumkellern,a(n)n=1…10000的表

公式

{P inA000 000P+ 1A000 4709P-1A000 4709}。-马塔尔,十二月08日2015

例子

43是包含的,因为43 - 1=2×3 * 7和43+1=2 ^ 2×11都是无立方的。

71被省略,因为p+ 1边,72=2 ^ 3×3 ^ 2,具有立方体因子。

枫树

ISA089194:= PROC(n)

如果IS素数(n)

ISA000 4709(N-1)和ISA000 4709(n+1);

其他的

虚假的;

如果结束;

结束进程马塔尔,十二月08日2015

Mathematica

F[n]:=模块[{a= m=0 },do[IF因子整数[[m,2 ] ]>2,a=1 ],{m,长度[因子整数[n] ] };a={};do[p=素数[n];如果[f[p-1 ]=0和& [f+p](=1)=0,附录[LST,p] ],{n,6![*](*)弗拉迪米尔-约瑟夫斯蒂芬奥尔洛夫斯基7月15日2009*)

P3FQ[n]:= max [转置[因子整数[n] ] [[ 2 ] ]<3;选择[素数[范围]〔200〕,ALLUTHORY({ +{ 1,-1 },P3FQ:&])(*程序使用Mathematica版本10的Altrut函数)*(*)哈维·P·戴尔,APR 08 2015*)

黄体脂酮素

(帕里)

输入迭代次数n,幂p和减去k个数。

PofRefEp2(n,p,d)={c=0;PC=0;FoPrimy(x=2,n,PC++);If(ISPOWEXPLY(X-D,P)& &无幂(X+D,P),C++;Prrt1(x),););PrdTe();打印(C),“PC”,“C/PC+. 0”}

ISPOWEXPLY(M,P1)={FLAG=1;Y=分量(因子(m),2);(i=1,长度(y),If(y[i]>P1,FLAG=0;BACK););返回(标志)}

(哈斯克尔)

A089194 n=A0891944列表!(N-1)

A089194A列表=过滤器((=1)。A212793.(+ 1)A079375列表

——莱因哈德祖姆勒5月27日2012

交叉裁判

囊性纤维变性。A000 4709. 子序列A089189.

语境中的顺序:A10429 A15300 A04999*A050229 A224321 A053184

相邻序列:A089191 A089192 A089193*A089195 A089196 A089197

关键词

容易诺恩

作者

西诺希利亚德,十二月08日2003

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改1月22日20:18 EST 2020。包含331163个序列。(在OEIS4上运行)