|
| |
|
| A014575号 |
| 吸血鬼数字（定义2）：具有偶数位数的数字n，其因式分解为n=i*j，其中i和j具有相同的位数，并且n的数字集与i和j的数字集重合。 |
|
18
|
|
|
|
1260, 1395, 1435, 1530, 1827, 2187, 6880, 102510, 104260, 105210, 105264, 105750, 108135, 110758, 115672, 116725, 117067, 118440, 120600, 123354, 124483, 125248, 125433, 125460, 125500, 126027, 126846, 129640
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
数字i和j可能不都有尾随零。数字可能有多个这样的因子分解。但是，每个n只列出一次。[注释修改人里克·L·谢泼德2009年11月2日]
|
|
|
参考文献
|
C.A.Pickover，《吸血鬼数字》，《无限钥匙》第30章。纽约：Wiley，第227-231页，1995年。
|
|
|
链接
|
|
|
|
例子
|
1260=21*60、1395=15*93、1435=35*41、1530=30*51等。
|
|
|
MAPLE公司
|
n：=1：
dgs从4到10乘2 do
对于从10^（dgs-1）到10^dgs-1 do的a
amset:=排序（转换（a，base，10））；
isv:=false；
对于numtheory中的d[除数]（a）do
m：=a/d；
如果（m>=d），则
dset:=转换（d，基数，10）；
mset：=转换（m，基数，10）；
fset：=排序（[op（dset），op（mset）]）；
如果fset=amset和nops（dset）=nops（mset），则
如果（m mod 10<>0）或（d mod 10>>0），则
printf（“%d%d\n”，n，a）；
isv:=真；
n：=n+1；
结束条件：；
结束条件：；
结束条件：；
如果是isv，那么
断裂；
结束条件：；
结束do：
结束do：
|
|
|
数学
|
fQ[n_]：=If[OddQ@IntegerLength@n，False，MemberQ[Map[Sort@Flatten@Integer Digits@#&，Select[Map[{#，n/#}&，TakeWhile[Divisors@n，#<=Sqrt@n&]]，SameQ@@Map[IntegerLongth，#]&]]；选择[范围[10^6]，fQ](*迈克尔·德弗利格2017年1月27日*）
|
|
|
黄体脂酮素
|
（PARI）是（n）=我的（v=数字（n））；if（#v%2，返回（0））；对于div（n，d，如果（#Str（d）==#v/2&#Str（n/d；0 \\查尔斯·R·Greathouse IV2013年4月19日
（PARI）是_A014575号（n） ={my（v=vecsort（Vecsmall（Str（n）））；#v%2&&return；my（M=10^（#v\2），L=M\10）；fordiv（n，d，d<L&&next；d<M||return；v==vecsor（Vecsmill（Str（d，n/d））））(A048933号)如果吸血鬼的数字，或者false（空，0）否则-M.F.哈斯勒2021年3月11日
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
