OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者

 

标志
提示
(来自的问候整数序列在线百科全书!)
A296341型 使复合数k-n和k+n的算术导数相等的最小数k。 0
138004, 23, 2012, 136, 72708, 22, 1449858, 41, 264, 28, 1116, 107, 112, 44, 11752, 292, 1047798, 68, 88212, 71, 2478418, 54, 452, 119, 220, 92, 582, 592, 40284, 191, 329958, 89, 1600550, 602, 516798, 151, 2952, 140, 11434, 298, 125714, 212, 39654, 896, 822, 126 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
如果去掉只搜索复数k-n和k+n的限制,我们得到的项是两个素数的平均值。
链接
示例
a(1)=138004,因为它是使复合物k-1和k+1具有算术导数(k-1)'=(k+1)'的最小数k。我们看到(138004-1)'=(138004+1)'=47351;
a(2)=23,因为它是使复合物k-2和k+2具有算术导数(k-2)'=(k+2)'的最小数k。我们看到(23-1)’=(23+1)。
MAPLE公司
使用(数字理论):P:=proc(q)局部a,h,n,P;从2到q do的h
对于从h到q的n,如果不是i素数(n-h),则do和
(n-h)*加(op(2,p)/op(1,p),p=系数(n-h,[2])=
(n+h)*加(op(2,p)/op(1,p),p=系数(n+h)[2])
然后打印(n);断裂;fi;od;od;结束:P(10^9);
数学
ad[n_]:=使用[{f=FactorInteger[n]},n*Total[f[[All,2]]/f[[Al,1]]];
okQ[n_,k_]:=如果[Not[CompositeQ[k-n]&&CompositeQ[k+n]],False,ad[k-n]==ad[k+n]];
a[n_]:=对于[k=1,True,k++,如果[okQ[n,k],打印[“a(”,n,“)=”,k];返回[k]]];
数组[a,46](*让-弗朗索瓦·奥尔科弗2017年12月20日*)
交叉参考
参见。A003415号A087711号
关键词
非n容易的
作者
保罗·拉瓦2017年12月12日
状态
已批准

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

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

上次修改时间:美国东部夏令时2024年6月15日19:43。包含373410个序列。(在oeis4上运行。)