|
（Python）
从functools导入reduce
从运算符导入mul
i、 p=2，如果d！='，则str（n）中d的reduce（mul，（int（d）0'))
while（max（str（i））==“1”和str（i）.count（'1'）==1）或reduce（mul，（int（d）for d in str（i*n），如果d！='0')) != 第页：
i+=1
（PARI）prd（n）={my（d=数字（n），p=1）；对于（k=1，#d，如果（d[k]，p*=d[k]]）；）；p；}
a（n）={my（k=2，prdn=prd（n））；while（prd（k*n）！=prdn，k++；if（！（k%10），k++））；k*n；}\\米歇尔·马库斯2017年8月12日
| 