- 350 名前：１３２人目の素数さん mailto:sage [2024/11/30(土) 16:16:40.90 ID:BMBeqwqc.net]
- (*
疑似ヴァンパイア数（Pseudovampire numbers）は、「数字を2等分」という縛りを無くした数である。
例えば126 = 6×21など。
https://ja.wikipedia.org/wiki/ヴァンパイア数
問題 ３桁の疑似ヴァンパイア数を列挙せよ。
*)
f[n_]:=(
p=Permutations[IntegerDigits[n],{3}];
prd=(10 #[[1]]+#[[2]])#[[3]]& /@ p;
ContainsAny[prd,{n}]
)
n=Select[Range[100,999],f]
g[x_]:=(
p=Permutations[IntegerDigits[x],{3}];
prd=(10 #[[1]]+#[[2]])#[[3]]& /@ p;
i=Position[prd,x][[1]][[1]];
{10p[[i]][[1]]+p[[i]][[2]],p[[i]][[3]]}
)
g /@ n
|
 |
