登录

OEIS由OEIS基金会的许多慷慨捐赠者.

 

提示 （来自的问候整数序列在线百科全书!) A243609型 对n进行编号，使n^3+1的最大素除数与其他不同素除数之和的差值等于+-1。 0 12、17、179、546、1241、12520、19484、35732、65933、76782、86918、90035、94381、120195、183677、209837、229829、241951、288260、315724、338712、344231、422069、568346、597327、734382、894504、1345874、1635804、1697093、2000325、2043907、2131745、2262789、2492717 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1，1 链接 n=1..35时的n，a（n）表。 J.Harrington、L.Jones、A.Lamarche、，将整数表示为环Z_n中两个平方的和，J.国际顺序。17 (2014) # 14.7.4. 例子 12在序列中是因为12^3+1=1729=7*13*19和19-（13+7）=19-20=-1； 17在序列中是因为17^3+1=4914=2*3^3*7*13和13-（7+3+2）=13-12=1。 数学 fpdQ[n_]：=模块[{f=Transpose[FactorInteger[n^3+1]][[1]]}，最大[f]-总计[Most[f]]==1]；gpdQ[n_]：=模块[｛g=转座子[FactorInteger[n^3+1]][[1]]｝，最大[g]-总计[最大[g]]==-1]；联合[选择[Range[2，5*10^6]，fpdQ]，选择[Range[2，5*10^6]，gpdQ]] dgQ[n_]：=模块[{f=FactorInteger[n^3+1][[All，1]]，len，a，b}，len=Length[f]-1；{a，b}=TakeDrop[f，len]；Abs[总计[a]-b[[1]]==1]；选择[范围[25*10^5]，dgQ]（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2019年1月3日*） 交叉参考 参见。A001093年,A081256号,A244194号. 上下文中的序列：A045699号 A155096号 A166674号*A082241号 A077294号 2006年2月21日 相邻序列：A243606型 A243607型 A243608型*A243610型 A243611型 A243612型 关键词 非n 作者 米歇尔·拉格诺2014年6月23日 状态 经核准的

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

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

上次修改时间：2024年6月19日16:35 EDT。包含373503个序列。（在oeis4上运行。）