%I#28 2019年12月5日17:42:36
%S 1,1,2,2,2,2,6,2,3,2,10,2,12,7,14,2,2,18,2,20,11,22,2,5,5,3,28,3,
%电话:30,2,2,34,6,6,19,38,2,40,6,42,22,44,23,46,2,7,5,50,26,52,3,54,7,56,
%U 29,58,30,60,31,62,2,2,26,2,68,35,70,2,72,37,74
%N最小基数b,其中基数b中数字N的位数之和最小,其中1<b<N和a(1)=a(2)=1。
%C与a(n)对应的最小数字之和等于2-A075802(n),即当n为1或完全幂时为1,否则为2_Giovanni Resta_,2019年11月22日
%当且仅当n在A088905中但不在A001597中时,C a(n)=n-1。如果n是偶数,则a(n)<=n/2_罗伯特·伊斯雷尔,2019年12月5日
%H Robert Israel,n的表,a(n)表示n=1..10000</a>
%e对于n=5:
%以2为基数的e n=[1,0,1]->数字和(5,2)=2。
%以3为基数的e n=[1,2]->数字和(5,3)=3。
%以4为基数的e n=[1,1]->数字和(5,4)=2。
%e基数2的数字之和最小,表示n=5->
%e因此a(5)=2。
%e对于n=7:
%以2为基数的e n=[1,1,1]->数字和(7,2)=3。
%以3为基数的e n=[2,1]->数字和(7,3)=3。
%以4为基数的e n=[1,3]->数字和(7,4)=4。
%以5为基数的e n=[1,2]->数字和(7,5)=3。
%以6为基数的e n=[1,1]->数字和(7,6)=2。
%e对于n=7,基数6具有最小的数字和->
%e因此a(7)=6。
%p f:=proc(n)局部f,t,d,bmin,s,r,b;
%p F:=因子(n)[2];
%p d:=igcd(seq(t[2],t=F));
%p如果d>1,则返回mul(t[1]^(t[2]/d),t=F)fi;
%p F:=系数(n-1)[2];
%p d:=igcd(seq(t[2],t=F));
%p如果d=1,则bmin:=n-1,否则bmin:=mul(t[1]^(t[2]/d),t=F)fi;
%数字理论中s的p:-除数(n)do
%p r:=n/s-1;
%p F:=系数[2];
%p d:=igcd(seq(t[2],t=F));
%p b:=倍数(t[1]^(t[2]/d),t=F);
%p如果b<bmin且r=b^padic:-ordp(r,b),则bmin:=b-fi
%p od;
%p bmin;
%p端程序:
%p映射(f,[1..100]美元);#_罗伯特·伊斯雷尔,2019年12月5日
%t a[n_]:=块[{b=1,r=n,t},Do[t=Plus@@IntegerDigits[n,i];如果[t<r,r=t;b=i],{i,2,n-1}];b] ;阵列[a,75](*Giovanni Resta_,2019年11月22日*)
%o(PARI)a(n)={my(best_b=1,best_dig_sum=n;
%Y参考A001597、A075802、A088905。
%K nonn,基础,看
%氧1,3
%A哈里斯·齐科,2019年11月21日
%E来自Giovanni Resta的更多条款,2019年11月22日
|