提出
经核准的
编辑
M.F.哈斯勒:[对于记录,稍快的变量:]is_A328095(n,d=vecprod(数字(n))*n)={if(d,my(m=10^logint(n,10)*10);直到(n>d\=10,d%m==n&&return(1)),!n)}
(PARI)是_A328095型(n) ={my(d,m);如果(d=vecprod(数字(n))*n,( m=10^logint(n,10)*10)&& ; 直到(n>d\=10,d%m==n&&返回(1))!n) }\\M.F.哈斯勒2019年10月20日
(PARI)是_A328095型(n) ={my(d,m);如果(d=vecprod(数字(n))*n)&& ,(m=10^logint(n,10)*10)&&直到(n>d\=10,d%m==n&&返回(1)),!n个)} \\M.F.哈斯勒2019年10月20日
(PARI)是_A328095型(n), )={我的(d日,米); (d=vecprod(数字(n))*n)={d日&& (n个米=国防部(n个, 10^logint(n,10)*10))&&直到(举起(n个)>d=10,d%米==n&&返回(1))}\\M.F.哈斯勒2019年10月20日
(PARI)是(n)={if(n==0,返回(1));my(d=数字(n),dn=数字(n*vecprod(d)),t=1);对于(i=1,#dn,if(dn[i]==d[t],t++;if(t==#d+1,return(1),t=1);0)}\\大卫·A·科内斯2019年10月19日
M.F.哈斯勒:(但11628*6*2*8=1116288包含11628。)我将删除不正确的PARI程序并通知作者,以防他想添加更正版本。
{ A328560型 } 联盟{ A328561型 }.
M.F.哈斯勒:{Axxx}是一个单例,必须是简单的Axxx。对于11628,第一个PARI程序不会返回true。