Держите список до 1000 для проверки (и код PARI/GP):
Код:
? for(n=1,1000,d=vecsort(digits(n),,8);k=#d;if(d[1]>0,for(i=1,#d,if(n%d[i]>0,break,k--)));if(k==0,print1(n," ")))
1 2 3 4 5 6 7 8 9 11 12 15 22 24 33 36 44 48 55 66 77 88 99 111 112 115 122 124 126 128 132 135 144 155 162 168 175 184 212 216 222 224 244 248 264 288 312 315 324 333 336 366 384 396 412 424 432 444 448 488 515 555 612 624 636 648 666 672 728 735 777 784 816 824 848 864 888 936 999