登录
OEIS由
OEIS基金会的许多慷慨捐赠者
.
提示
（来自的问候
整数序列在线百科全书
!)
246775英镑
最小数x，使得phi（x）=phi（x（n）），其中x（n）是x的第n个算术导数，x不等于x（n）。
1
2, 104, 15, 2565, 4947, 2827, 2834, 153, 3462, 16109, 3201, 7413, 31842, 24541, 66563, 15111, 223995, 542270, 733502, 717874, 521666, 2622290, 2111642, 16169763
(
列表
;
图表
;
参考文献
;
听
;
历史
;
文本
;
内部格式
)
抵消
1,1
链接
n=1..24时的n，a（n）表。
例子
x=4947的前5个算术导数是1991、192、640、2368、7168和phi（4947）=phi（7178）=3072。
x=3462的前9个算术导数是2891、875、650、635、132、188、192、640、2368，φ（3462）=φ（2368）=1152。
MAPLE公司
带有（数字理论）；
P： =proc（q）局部a、b、k、n、P、t；
对于n从1到q do，对于k从1到qdot：=1；
b： =k；
而t<=n做a:=b*加（op（2，p）/op（1，p），p=ifactors（b）[2]）；
b： =a；
t： =t+1；
od；
如果φ（k）=φ（a）和k<>a，则lprint（n，k）；
断裂；
fi；
od；
od；
结束：P（10^6）；
数学
d[n_]：=如果[n<2，0，n*总计[#2/#1&@@@FactorInteger[n]]]；
dd[n，k_]：=嵌套[d，n，k]；
aQ[x_，n_]：=模块[{xx=dd[x，n]}，xx！=
x&&EulerPhi[x]==EulerPhi[xx]]；
a[n_]：=模块[{k=1}，而[！aQ[k，n]，k++]；
k] ；
数组[a，10](*
阿米拉姆·埃尔达尔
2019年4月6日*）
交叉参考
囊性纤维变性。
A000203号
,
A003415号
,
A246774号
.
上下文中的序列：
A215964型
A106299号
A176933号
*
A281053型
A101530号
A199945型
相邻序列：
A246772号
246673英镑
A246774号
*
A246776号
A246777号
A246778号
关键词
非n
,
更多
作者
保罗·拉瓦
2014年9月3日
扩展
a（17）-a（24）来自
阿米拉姆·埃尔达尔
2019年4月6日
状态
经核准的
