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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A098700型 数n使得x'=n没有整数解,其中x'是x的算术导数。 14
2, 3, 11, 17, 23, 29, 35, 37, 47, 53, 57, 65, 67, 79, 83, 89, 93, 97, 107, 117, 125, 127, 137, 145, 149, 157, 163, 173, 177, 179, 189, 197, 205, 207, 209, 217, 219, 223, 233, 237, 245, 257, 261, 277, 289, 303, 305, 307, 317, 323, 325, 337, 345, 353, 367, 373 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
如果x'=n有解,它们出现在x<=(n/2)^2-T.D.诺伊2004年10月12日
素项和合成项在A189483号A189554号分别是。
A099302号(a(n))=0-莱因哈德·祖姆凯勒2014年3月18日
链接
Victor Ufnarovski和Bo Ahlander,如何区分数字,J.整数序列。,2003年第6卷。(见第7页。)
数学
a[1]=0;a[n_]:=块[{f=Transpose[FactorInteger[n]]},如果[PrimeQ[n],1,Plus@@(n*f[[2]]/f[1]])]];b=表[-1,{500}];b[[1]]=1;做[c=a[n];如果[c<500&&b[[c+1]]==0,b[[c+1]]=n],{n,10^6}];选择[Range[500],b[[#]]==0&]
dn[0]=0;dn[1]=0;dn[n_]:=模[{f=Transpose[FactorInteger[n]]},如果[PrimeQ[n],1,Plus@@(n*f[[2]]/f[1]])]];d1=表格[dn[n],{n,40000}];选择[Range[400],0==计数[d1,#]&]
黄体脂酮素
(哈斯克尔)
a098700 n=a098700_列表!!(n-1)
a098700_list=过滤器
(\z->all(/=z)$map a003415[1..a002620 z])[2]
--莱因哈德·祖姆凯勒2014年3月18日
(PARI)列表(lim)=我的(v=列表());lim=1;系数化(n=1,lim^2,my(f=n[2],t);列表输入(v,n[1]*和(i=1,#f~,f[i,2]/f[i,1]));设置减号([1..lim],设置(v))\\查尔斯·格里特豪斯四世2021年10月21日
(Python)
从itertools导入计数,islice
来自sympy导入因子
定义A098700型_gen(startvalue=2):#术语生成器>=startvalue
返回筛选器(lambda n:all(map(lambda m:sum((m*e//p表示p,factorint(m).items()中的e))!=n、 范围(1,(n**2>>1)+1)),计数(最大值(起始值,2))
A098700型_list=列表(islice(A098700型_发电机(),30))#柴华武2022年9月12日
交叉参考
囊性纤维变性。A003415号(n的算术导数),A099302号(x’=n的解的数量),A099303号(最大x,使得x'=n),1986年(最小x,使x'=n)。
囊性纤维变性。A239433型(补语),A002620型.
的后续A369464型.
关键词
非n
作者
罗伯特·威尔逊v,2004年9月21日
扩展
更正和扩展人T.D.诺伊2004年10月12日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月22日04:48。包含373565个序列。(在oeis4上运行。)