A050480-OEIS公司

A050480型

可以写成不同真除数的串联的数字。

12, 15, 24, 36, 48, 110, 120, 124, 125, 126, 128, 132, 135, 150, 162, 168, 175, 184, 210, 216, 220, 240, 248, 250, 264, 312, 315, 324, 330, 360, 375, 384, 396, 412, 416, 420, 432, 440, 480, 510, 520, 525, 550, 612, 624, 630, 648, 660, 672, 714, 728, 735

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

小于10^k的项数：0，5，64，395，2406，13417，78268-罗伯特·威尔逊v2011年4月4日

链接

莱因哈德·祖姆凯勒（Reinhard Zumkeller），n=1..1000时的n，a（n）表

例子

132可以被1、3和2整除。

数学

f[x_，y_]：=（y==取[x，Min[Length@y，Length@x]]）；g[{}，_]：=真；g[LL_，DD_]：=模块[{a=选择[DD，f[LL，IntegerDigits@#]&]}，或@@Map[g[Drop[LL，Length@IntegerDigits@#]，补码[DD、{#}]&，a]]；fQ[n_]：=g[整数位数@n，大多数@除数@n]；选择[Range@2000，fQ](*罗伯特·威尔逊v2011年4月4日*）

黄体脂酮素

（哈斯克尔）

导入数据。列表（排列、子序列、isInfixOf）

a050480 n=a050480_列表！！（n-1）

a050480_list=过滤器chi[2..]，其中

chi x=xs`elem`（map-concat$choices-divs）其中

choices=连接。（地图排列）。子序列

divs=过滤器（`isInfixOf`xs）

$map显示$filter（（==0）。型号x）[1..a032742 x]

xs=显示x

--莱因哈德·祖姆凯勒2011年4月4日

交叉参考