登录
A244069型
考虑一个k位数n=d_(k)*10^(k-1)+d_(k-1)*10qu(k-2)+…+d_。序列列出了数字n,使得和{i=1..k-1}{phi(和{j=1..i}{d_(j)*10^。
11, 21, 53, 75, 83, 95, 211, 506, 523, 708, 908, 932, 955, 1008, 5086, 6535, 7272, 7557, 9126, 20534, 31165, 51301, 52695, 71665, 73713, 85173, 90902, 93026, 93565, 210021, 313370, 330173, 406945, 423775, 521427, 633190, 728687, 850123, 926281
抵消
1,1
评论
不允许使用个位数的术语-哈维·P·戴尔2015年3月8日
例子
如果n=423775,从最低有效数字开始,让我们将数字切成集合{5,75,775,3775,23775}。我们有:
σ(5)=6;
σ(75)=124;
西格玛(775)=992;
西格玛(3775)=4712;
西格玛(23775)=39432。
然后,从最有效的数字开始,让我们将数字切成集合{4,42,423,4237,42377}。我们有:
φ(4)=2;
φ(42)=12;
φ(423)=276;
φ(4237)=3996;
φ(42377)=40980。
最后,6+124+992+4712+39432=2+12+276+3996+40980=45266。
MAPLE公司
带有(数字理论);P: =proc(q)局部a,b,k,n;对于从10到qdo的n
a: =0;k: =1;当trunc(n/10^k)>0时,做a:=a+phi(trunc;k: =k+1;od;
b: =0;k: =1;而(n mod 10^k)<n do b:=b+σ(n mod10 ^k);k: =k+1;od;
如果a=b,则打印(n);fi;od;结束:P(10^9);
数学
dsepQ[n_]:=模块[{idn=整数位数[n],len},len=长度[idn]-1;总计[DivisorSigma[1,#]&/@(FromDigits/@Table[Take[idn,-k],{k,If[Last[idn]==0,2,1],len}])]==总计[EulerPhi/@(FremDigits/@Table[Take[idn,i],{i,len}])]];选择[范围[10,10^6],dsepQ](*哈维·P·戴尔2015年3月8日*)
关键词
非n,基础
作者
保罗·拉瓦2014年6月19日
扩展
更正(添加了a(18))哈维·P·戴尔2015年3月8日
状态
经核准的