提出

经核准的

编辑

提出

f[n_]：=如果[Abs@n<2，0，n总计[#2/#1&@@@FactorInteger@Abs@n]；Select[Range[3，10^5]，Function[k，IntegerQ@SelectFirst[Range[0，10]，Fuction[d，If[MemberQ[d，0]&&#==0，Total@Power[d/.0->Nothing，#]==f@k，Total@Power[d、#]==f@k]]@IntegerDigits@k&]](*迈克尔·德弗利格2016年3月4日，第10版，f（n）之后迈克尔·索莫斯在A003415号*)

提出

编辑

编辑

提出

3, 4, 5, 7, 142, 581, 6127, 8549, 12643, 16999, 51703, 57121, 86833, 89195, 92029, 103039, 104647, 112093, 137317, 149851, 218269, 261883, 266923, 323723, 336273, 449881, 505891, 524371, 610171, 617569, 907873, 999643, 1119253, 1134227,1728787,1900523,2045171

保罗·拉瓦（Paolo P.Lava），<a href=“/A269719型/a269719号_1.txt“>序列的术语及其固定功率</a>

保罗·拉瓦（Paolo P.Lava），<a href=“/A269719型/a269719.txt“>序列术语及其固定功率</a>

分配给Paolo P.Lava

算术导数等于其数字的某些固定幂之和的数字。

3, 4, 5, 7, 142, 581, 6127, 8549, 12643, 16999, 51703, 57121, 86833, 89195, 92029, 103039, 104647, 112093, 137317, 149851, 218269, 261883, 266923, 323723, 336273, 449881, 505891, 524371, 610171, 617569, 907873, 999643, 1119253, 1134227

1,1

3^0=1和3'=1；

4^1=4和4'=4；

1^3+4^3+2^3=73和143'=73。

使用（数字理论）：P:=proc（q）局部a，b，c，d，j，k，n，ok；对于从3到q的n，做a:=[]；b： =n；确定：=0；

d： =n*加法（op（2，p）/op（1，p），p=ifactors（n）[2]）；a： =[]；b： =n；确定：=0；

对于k从1到ilog10（n）+1，如果（b mod 10）>1，则确定：=1；fi；a： =[（b mod 10），op（a）]；b： =trunc（b/10）；od；b： =-1；c： =0；

如果ok=1，则当c<d时，执行b:=b+1；

如果b>0，则c:=加（a[k]^b，k=1..nops（a））；否则，对于k从1到nops（a），如果a[k]=0，那么c:=0；断裂；

否则c:=c+1；fi；od；fi；od；如果c=d，则lprint（n，b）；fi；fi；od；结束：P（10^9）；

参见。A003415号.

分配

非n,容易的

保罗·拉瓦2016年3月4日

经核准的

编辑

分配给Paolo P.Lava

分配

经核准的