A089194-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, 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日`
	链接	`莱因哈德·祖姆凯勒（Reinhard Zumkeller），n=1..10000时的n，a（n）表`
	配方奶粉	`{输入A000040型：p+1英寸A004709号和p-1英寸A004709号}. -R.J.马塔尔2015年12月8日`
	例子	`43被包括在内，因为43-1=237和43+1=2^211都是立方数。` `71被省略，因为p+1边72=2^33^2有一个立方因子。`
	MAPLE公司	`isA089194:=进程（n）` `如果是素数（n），则` `isA004709（n-1）和isA004709（n+1）；` `其他的` `假；` `结束条件：；` `结束进程：#R.J.马塔尔2015年12月8日`
	数学	`f[n_]：=模[{a=m=0}，Do[If[FactorInteger[n][[m，2]]>2，a=1]，{m，长度[FactorInteger[n]]}]；a] ；lst={}；Do[p=素数[n]；如果[f[p-1]==0&&f[p+1]==0，追加到[lst，p]]，{n，6！}]；第一次(弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2009年7月15日）` `p3fQ[n_]：=最大[Transpose[FactorInteger[n]][[2]]]<3；选择[Prime[Range[200]]，AllTrue[#+{1，-1}，p3fQ]&]（程序使用Mathematica版本10中的AllTrue函数）(哈维·P·戴尔2015年4月8日）`
	黄体脂酮素	`（PARI）` `\\输入迭代次数n、幂p和减去k的次数。` `无功p2（n，p，d）={c=0；pc=0；对于素数（x=2，n，pc++；if（无功（x-d，p）&&ispowerfree（x+d，p，c++；print1（x“，”）；）；print（）；打印（c“，”pc“，”c/pc+.0）}` `ispowerfree（m，p1）={flag=1；y=分量（因子（m），2）；对于（i=1，长度（y），如果（y[i]>=p1，flag=0；break）；）；返回（flag）}` `（哈斯克尔）` `a089194 n=a089194_列表！！（n-1）` `a089194_list=过滤器（（==1）。a212793。（+1））a097375_列表` `--莱因哈德·祖姆凯勒2012年5月27日`
	交叉参考	`囊性纤维变性。A004709号.后续A089189号.` `上下文中的序列：A104293号 A153002号 A042999号A050229号 A224321号 A053184号` `相邻序列：A089191号 A089192号 A089193号A089195号 A089196美元 A089197号`
	关键词	`容易的，非n`
	作者	`西诺·希利亚德2003年12月8日`
	状态	`经核准的`

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

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

上次修改时间：美国东部夏令时2024年4月25日21:09。包含371989个序列。（在oeis4上运行。）