A162870-OEIS公司

A162870号

素数p，使得p-1和p+1在其素因式分解中都包含至少一个立方素数。

919, 1999, 2647, 2663, 2969, 3511, 3833, 3943, 4751, 6857, 9127, 10313, 11287, 11719, 12041, 12583, 13033, 13337, 13879, 14249, 14633, 15497, 15607, 16903, 18089, 18199, 18251, 18521, 19751, 20249, 20359, 20681, 21751, 21977, 22409

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

选择标准是，p-1和p+1位于子序列8=2^3，24=2^3*3，27=3^3，40=2^3*5，54=2*3^3，。。。立方数的(A046099型)它实际上在标准的素因式分解中显示了至少一个立方体(A176297号).

因此，p-1中的e_i中至少有一个=乘积p_i^e_i，p+1中的e_j中至少一个=产品p_j^e_j必须等于3。这比立方体更具限制性，因此该序列成为A086708号.

链接

罗伯特·伊斯雷尔，n，a（n）表，n=1.10000

例子

271不在序列中，尽管271-1=2*3^3*5在素因式分解中包含第三个立方体，因为271+1=2^4*17不在序列内。

919在序列中，因为919-1=2*3^3*17在素因式分解中包含第三个立方体，919+1=2^3*5*23也是如此。

MAPLE公司

isA162870:=进程（n）

如果是素数（n），则

是A176297（n-1），是A176267（n+1）；

其他的

假；

结束条件：；

结束进程：

n从1到40000 do

如果是A162870（n），则

printf（“%d，”，n）；

结束条件：；

结束do：#R.J.马塔尔2015年12月8日

N： =10^6:#得到所有项<N，其中N是偶数

五： =矢量（N/2）：

因为我从一开始

p： =ithprime（i）；

如果p^3>N+1，则打破fi；

如果p=2，则inds:=4*[seq（i，i=1..楼层（N/8），2）]

else inds:=p^3*选择（t->t mod p<>0，[$1..楼层（N/2/p^3）]）

fi；

V[inds]：=1；

日期：

选择（t->V[（t-1）/2]=1和V[（t+1）/2]=1和isprime（t），[seq（t，t=3..N，2）]）#罗伯特·伊斯雷尔2015年12月8日

数学

f[n_]：=模[{a=m=0}，Do[If[FactorInteger[n][[m，2]]==3，a=1]，{m，长度[FactorInteger[n]]}]；a] ；lst={}；Do[p=素数[n]；如果[f[p-1]==1&&f[p+1]==1，追加到[lst，p]]，{n，7！}]；第一次

交叉参考

囊性纤维变性。A089189美元,A089194号.

上下文中的序列：A020399年 A084843号 A059668号*A251133型 A083142号 A332191型

相邻序列：A162867号 162168英镑 A162869号*A162871号 A162872号 A162873号

关键词

非n

作者

弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2009年7月15日

扩展

立方体号码的作用R.J.马塔尔，2007年7月31日

状态

经核准的