登录
最小k,使得k*i是一个总数(A002202号)对于所有i=1到n。
1

%I#30 2023年5月31日09:09:44

%S 1,1,2,2,2,2,4,4,44,4,1,4,4,4,4四,4,8,12,12,12,12,12,12,12,12-12,

%电话:12,12,12,12,12,12,12,12-12,12:12,12,12,12,12,12,24,24,24,24:24,24,24,24,

%U 24,24,24.24,24,24,24,24:24,24:24,24,24

%N最小k,使k*i是所有i=1到N的总数值(A002202)。

%C这样的k总是存在的,每个项只能有限次地重复。所以在这个序列中有无穷多个不同的项值。

%C数n>1,使得a(n)>a(n-1)为3,7,17,19,43,167,211,353,733,2089,2837,5227。..

%C术语的不同值为1、2、4、8、12、24、48、120、288、576、720、。..

%H Robert Israel,n的表,a(n)表示n=1..10000</a>

%e a(7)=4,因为4、8、12、16、20、24、28都是有向数,而4是具有这个性质的最小数。

%p istot:=proc(n)选项记忆;数字理论:-invphi(n)<>[]结束进程:

%pf:=proc(n)选项记忆;局部k;

%p代表k,由procname(n-1)乘以2do

%p如果andmap(istot,{$1..n}*~k),则返回kfi

%p od;

%p端程序:

%p f(1):=1:f(2):=1:f(3):=2:

%p映射(f,[1..100]美元);#_Robert Israel_,2023年5月31日

%o(PARI)是(n,k)=我的(i);对于(i=1,n,如果(istotient(k*i)==0,返回(0)); 1;

%o a(n)=我的(k=1);而(!是(n,k),k++);k;

%Y参考A000010、A002202。

%K nonn公司

%氧1,3

%A Altug Alkan,2017年2月4日