搜索: a100390-编号:a100390
|
|
|
|
3, 5, 7, 11, 15, 17, 19, 23, 26, 29, 31, 35, 39, 41, 44, 47, 49, 51, 53, 55, 59, 63, 65, 67, 69, 71, 74, 76, 80, 83, 87, 89, 95, 97, 99, 101, 104, 107, 109, 111, 113, 116, 119, 124, 127, 129, 131, 134, 137, 139, 143, 146, 149, 153, 155, 159, 161, 164, 167, 174, 179, 181, 183
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
参考文献
|
Antal Balog,关于连续整数的最大素因子,Abstracts Amer。数学。Soc.,25(2002年第2号),第337页,编号975-11-76。
|
|
链接
|
|
|
配方奶粉
|
a(n)=A100390型(n) -1.-T.D.Noe,2007年11月26日
|
|
数学
|
压扁[Position[Partition[Table[FactorInteger[n][[-1,1]],{n,200}],3,1],_?(#[[1]]>#[[2]]<#[[3]&),{1},Heads->False]](*哈维·P·戴尔2016年1月10日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
3, 5, 7, 11, 13, 17, 19, 23, 26, 29, 31, 34, 37, 41, 43, 47, 49, 51, 53, 55, 59, 61, 65, 67, 69, 71, 73, 76, 79, 83, 86, 89, 94, 97, 99, 101, 103, 107, 109, 111, 113, 116, 118, 122, 127, 129, 131, 134, 137, 139, 142, 146, 149, 151, 155, 157, 161, 163, 167, 173, 179
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
评论
|
序列包含所有奇数素数。
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
26在这里是因为25、26、27的最大素数因子是5、13、3。
|
|
数学
|
<<数字理论`NumberTheoryFunctions`mxp[x_]:=最大值[PrimeFactorList[x]];ta={{0}};Do[s1=mxp[n-1];s=mxp[n];s2=mxp[n+1];如果[Greater[s,s1]&&Greater[s,s2],打印[{n,{s1,s,s2}}];ta=追加[ta,n]],{n,1,1000}]ta=删除[ta,1]
使用[{lpfs=Table[FactorInteger[n][[-1,1]],{n,200}]},Flatten[Position[Partition[lpfs,3,1],_?(第一[#]<#[[2]]>最后[#]&),{1},头->假]]+1](*哈维·P·戴尔2014年2月22日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
26, 34, 49, 51, 55, 65, 69, 76, 86, 94, 99, 111, 116, 118, 122, 129, 134, 142, 146, 155, 161, 183, 185, 188, 202, 206, 209, 214, 218, 237, 244, 246, 249, 254, 265, 267, 274, 287, 291, 295, 298, 302, 305, 309, 321, 326, 329, 334, 339, 341, 344, 351, 356, 362
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
评论
|
|
|
链接
|
|
|
例子
|
26位于序列中,因为25、26和27的最大素因子分别为5、13和3。
|
|
MAPLE公司
|
gpf:=n->max(数论:-因子集(n)):
五十: =地图(gpf,[1..1000]美元):
选择(t->L[t]<>t和L[t]>L[t-1]和L[t]>L[t+1],[$2..nops(L)-1])#罗伯特·伊斯雷尔2018年7月12日
|
|
数学
|
<<数字理论`NumberTheoryFunctions`mxp[x_]:=最大值[PrimeFactorList[x]];lf[x_]:=长度[PrimeFactorList[x]];ta={{0}};做[s1=mxp[n-1];s=mxp[n];s2=mxp[n+1];如果[Greater[s,s1]&&Greater[s,s2]&&!素数Q[n],打印[{n,{s1,s,s2}}];ta=附加[ta,n]],{n,1,1000}];ta=删除[ta,1]
选择[Flatten[Position[Partition[Table[FactorInteger[n][[-1,1]],{n,400}],3,1],_?(#[[1]]<#[[2]]>#[[3]]&),1,头部->假]],CompositeQ[#+1]&]+1(*哈维·P·戴尔2022年5月10日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
4, 8, 16, 27, 32, 64, 81, 125, 128, 243, 256, 343, 512, 625, 729, 1024, 1331, 2048, 2187, 2197, 3125, 4096, 6561, 8192, 14641, 15625, 16384, 16807, 19683, 24389, 28561, 32768, 50653, 59049, 65536, 68921, 78125, 79507, 83521, 103823, 117649, 130321
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
链接
|
|
|
例子
|
49附近最大的素因子是{3,7,5},所以49不是一个成员。
k=343=7^3在序列中,因为相应的最大素因子是{19,7,43}。
|
|
MAPLE公司
|
N: =2*10^5:#获得所有项<=N
f: =进程(x,p)
如果max(数字理论:-系数集(x-1))>p
并且max(数论:-因子集(x+1))>p,然后x
fi(菲涅耳)
结束进程:
排序([seq(seq(f(p^i,p),i=2..floor(log[p](N))),p=select(isprime,[2,seq(i,i=3.floor(sqrt(N),2)]))#罗伯特·伊斯雷尔2018年7月12日
|
|
数学
|
<<数字理论`NumberTheoryFunctions`mxp[x_]:=最大值[PrimeFactorList[x]];lf[x_]:=长度[PrimeFactorList[x]];ta={{0}};做[s1=mxp[n-1];s=mxp[n];s2=mxp[n+1];如果[Greater[s1,s]&&Greater[2,s]&&Equal[lf[n],1],打印[{n,{s1,s,s2}}];ta=追加[ta,n]],{n,1512}];ta=删除[ta,1]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.061秒内完成
|