%I#10 2018年4月16日02:55:17
%S 11,22,33,44,55,66,77,88,99100111122133144155166177188199,
%电话:20021224236248300313326339400414428500515600616700,
%电话:71780081890091000101010201030104010501060107018010901100
%N数字x是y与y的数字乘积的串联。
%e 100=>1*0=0;326 => 3*2 = 6; 127798 => 1*2*7*7 = 98.
%pP:=proc(n)局部k,ok;确定:=0;对于k从1到ilog10(n)do
%p如果转换(convert(trunc(n/10^k),base,10),`*`)=n mod 10^k,则确定:=1;断裂;fi;od;
%p如果ok=1,则如果n<100或k<ilog10(n),则n;fi;fi;结束:seq(P(i),i=1..1100);
%o(PARI)isok(n)={d=数字(n);对于(k=1,#d-1,da=向量(k,i,d[i]);db=向量
%Y参考A007954,A108203。
%K nonn,基础,简单
%O 1,1号机组
%A_Paolo P.Lava,2018年4月10日
|