登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
来自问候语整数序列在线百科全书!)
A089194号 素数p使得p-1和p+1是立方或更高的无幂次。 7
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、419、421、443、461、467、491、509、523、547、557、563、571、587、613、619、643、653、659、661 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,1

评论

A212793号(a(n)-1)=A212793号(a(n)+1)=1。-莱因哈德·祖姆凯勒2012年5月27日

链接

莱因哈德·祖姆凯勒,n=1..10000的n,a(n)表

公式

{p输入A000040号:p+1英寸A004709号和p-1英寸A004709号}. -R、 J.马萨2015年12月8日

例子

43包括在内,因为43-1=2*3*7和43+1=2^2*11都是立方英尺。

省略71是因为p+1边72=2^3*3^2有一个立方因子。

枫木

isA089194:=过程(n)

如果是isprime(n),那么

isA004709(n-1)和isA004709(n+1);

其他

错误的;

结束if;

过程结束:#R、 J.马萨2015年12月8日

数学

f[n_]:=模[{a=m=0},Do[If[factoringer[n][[m,2]]>2,a=1],{m,Length[FactorInteger[n]]}];a];lst={};Do[p=Prime[n];如果[f[p-1]==0&&f[p+1]==0,则附加到[lst,p]],{n,6!}];第一次(*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2009年7月15日*)

p3fQ[n_u]:=Max[Transpose[factoranteger[n]][[2]]]<3;选择[Prime[Range[200]]、AllTrue[#+{1,-1},p3fQ]&](*程序使用Mathematica版本10*中的AllTrue函数)(*哈维·P·戴尔2015年4月8日*)

黄体脂酮素

(平价)

\\输入迭代次数n,幂p和要减去k的数。

powerfreep2(n,p,d)={c=0;pc=0;forprime(x=2,n,pc++;if(ispowerfree(x-d,p)&&ispowerfree(x+d,p),c++;print1(x“,”);print();print(c”,“pc”,“c/pc++.0)}

ispowerfree(m,p1)={flag=1;y=component(factor(m),2);对于(i=1,长度(y),if(y[i]>=p1,flag=0;break););return(flag)}

(哈斯克尔)

a089194 n=a089194\U列表!!(n-1)

a089194_list=过滤器(==1)。a212793年。(+1)a097375 U列表

--莱因哈德·祖姆凯勒2012年5月27日

交叉引用

囊性纤维变性。A004709号. 子序列A089189号.

上下文顺序:A104293号 A153002号 A042999*A050229号 A224321号 A053184

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

关键字

容易的,

作者

奇诺·希利亚德2003年12月8日

状态

经核准的

查找|欢迎光临|维基|登记|音乐|2号地块|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

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

上次修改日期:美国东部时间2020年9月22日03:12。包含337289个序列。(运行在oeis4上。)