%I#17 2021年2月18日00:46:21
%S 1,4,15,162553754957951469382593752812566375875234375,
%电话:24948728787530937533718545061559062562812513691252390625,
%电话:277312527813873069375370678549653095859375128906251353937526803125396075562578125
%N按升序对等分除数的串联进行除法的数字。
%序列是无限的,因为它包含了形式为3*5^(2k+1)的所有数字_Giovanni Resta_,2014年4月3日
%e 1469的等分因子是1、13、113。它们按升序串联为113113和113113/1469=77。
%p与(数字理论);
%p T:=过程(T)局部x,y;x: =t;y: =0;当x>0时,x:=trunc(x/10);y: =y+1;od;结束时间:
%p p:=proc(q)局部a,b,c,d,i,k,n;
%p表示n从2到q做a:=排序([op(除数(n))]);b: =a[nops(a)-1];
%p代表i从nops(a)-2乘-1到1 do b:=b+a[i]*10^T(b);od;
%p如果类型为(b/n,整数),则打印(n);fi;
%p od;结束:P(10^6);
%t选择[Range[6258*10^4],Divisible[FromDigits[Flatten[IntegerDigits/@Most[Divisors[#]]],#]&](*_哈维·P·戴尔,2019年8月21日*)
%Y参考A069872,A224930。
%K nonn,基础
%O 1,2号机组
%2014年4月3日,A_Paolo P.Lava
%E a(14)-a(34)摘自_Giovanni Resta,2014年4月3日
%E第一学期(a(1)=1),由_Harvey P.Dale_准备,2019年8月21日
|