Composite numbers k with no single digit factors whose factors are all substrings of k: Difference between revisions
Content added Content deleted
(Added Algol 68) |
|||
| Line 83: | Line 83: | ||
function containsitsonlytwodigfactors(n) |
function containsitsonlytwodigfactors(n) |
||
s = string(n) |
s = string(n) |
||
return !isprime(n) && all(t -> length(t) > 1 && contains(s, t), map( |
return !isprime(n) && all(t -> length(t) > 1 && contains(s, t), map(string, collect(keys(factor(n))))) |
||
end |
end |
||