登录
174144英镑
形式为2^p*3^q*5^r*7^s+1的素数。
2
2, 3, 5, 7, 11, 13, 17, 19, 29, 31, 37, 41, 43, 61, 71, 73, 97, 101, 109, 113, 127, 151, 163, 181, 193, 197, 211, 241, 251, 257, 271, 281, 337, 379, 401, 421, 433, 449, 487, 491, 541, 577, 601, 631, 641, 673, 701, 751, 757, 769, 811, 883, 1009, 1051, 1153, 1201
抵消
1,1
评论
限制为r=s=0可以得到Pierpont素数(A005109号); s=0给出A002200型.
链接
查尔斯·格里塔斯四世,n=1..10000时的n,a(n)表
埃里克·魏斯坦的数学世界,Pierpont Prime公司
例子
6301 = 2^2 * 3^2 * 5^2 * 7 + 1.
MAPLE公司
with(numtheory):T:=数组(0..500000):U=数组(0.500000):k:=1:对于0到25之间的a do:对于0至16之间的b do:对于从0到16之间的c do:对于0-16之间的d do:p:=2^a*3^b*5^c*7^d+1:如果类型(p,prime)=true,则T[k]:=p:k:=k+1:否则fi:od:od:od:minii:=1:针对从1到k-1之间的p do:对于n from 1到k-1 do:如果T[n]<mini,则mini:=T[n]:ii:=n:indice:=U[n]:否则f i:od:打印(迷你):T[ii]:=10^30:ii:=1:mini:=T[1]:od:
数学
Take[Select[Sort[Flatten[Table[2^a*3^b*5^c*7^d+1,{a,0,25},{b,0,16},},c0,16{,0,16}]],PrimeQ[#]&],100](*或*)PrimeFactors[n_Integer]:=Flatten[Table[#[1]],{1}]&/@FactorInteger[n]];f[n_Integer]:=块[{m=n},如果[m==0,m=1,而[IntegerQ[m/2],m/=2];而[IntegerQ[m/3],m/=3]];应用[Times,PrimeFactors[m]-1]];ClassMinusNbr[n_]:=长度[NestWhileList[f,n,UnnameQ,All]]-3;素数[Select[Range[3,6300],
ClassMinusNbr[Prime[#]]==1&]]选择[Prime/@Range[10^5],Max@@First/@FactorInteger[#-1]<5&]
黄体脂酮素
(鼠尾草)
174144英镑=列表(p代表素数(2000)中的p,如果设置(素数因子(p-1))<=设置([2,3,5,7]))
(PARI)列表(lim)={
lim=1;
my(v=列表([2]),s,t,p);
对于(i=0,log(lim\2+.5)\log(7),
t=2*7^i;
对于(j=0,log(lim\t+.5)\log(5),
s=t*5^j;
而(s<lim,
p=s;
而(p<lim,
if(isprime(p+1),listput(v,p+1));
p<<=1
);
s*=3;
)
)
);
向量排序(Vec(v))
(岩浆)[PrimesUpTo(2000)中的p:p |对于PrimeDivisors(p-1)中的所有{d:d | d le 7}]//布鲁诺·贝塞利,2012年9月24日
(间隙)
K: =10^7;;#获取所有项<=K。
A: =已过滤([1..K],IsPrime);;一: =[3,5,7];;
B: =列表(A,i->元素(因子(i-1));;
C: =列表([0..长度(I)],j->列表(组合(I,j),I->级联([2],I)));
174144英镑:=串联([2],列表(集合(扁平(列表([1..长度(C)],i->列表([1.长度(C[i])],j->位置(B,C[i][j]))),i->A[i],))#穆尼鲁·A·阿西鲁2017年9月12日
关键词
非n
作者
米歇尔·拉格诺2010年3月9日
扩展
更正和编辑人D.S.麦克尼尔2010年11月20日
状态
经核准的