%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以6为基数，n=7->的数字之和最小

%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]美元）；#_Robert Israel_，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日