1，1

n=1..37的n，a（n）表。

保罗P。熔岩，序列项及其固定幂

3^0=1和3'=1；

4^1=4和4'=4；

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

有（numtheory）：P:=proc（q）局部a，b，c，d，j，k，n，ok；对于n从3到q，做a：=[]；b： =n；确定：=0；

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

对于k从1到ilog10（n）+1，如果（b mod 10）>1，则ok：=1；金融机构；a： =[（b mod 10），操作（a）]；b： =trunc（b/10）；外径；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；金融机构；外径；金融机构；外径；如果c=d，则lprint（n，b）；金融机构；金融机构；外径；结束：P（10^9）；

f[n]：=如果[Abs@n<2，0，n Total[\2/\1&@@@factorniter@Abs@n]]；选择[范围[3，10^5]，函数[k，IntegerQ@SelectFirst[Range[0，10]，函数[d，如果[MemberQ[d，0]&&#==0，Total@Power[d/。0->无，#]==f@k，总计@Power[d，#]==f@k]]@整数位数@k&]](*迈克尔·德维列格，2016年3月4日，第10版，f（n）之后迈克尔·索莫斯在A003415*)

囊性纤维变性。A003415.

上下文顺序：A101761号 A035359号 A325410型*A214626号 邮编：A143593 A028267号

相邻序列：  甲269716 甲269717 甲269718*A269720 邮编：A269721 A269722号

不,容易的

保罗P。熔岩2016年3月4日

经核准的