Composite numbers k with no single digit factors whose factors are all substrings of k: Difference between revisions

m
(Added Algol 68)
Line 83:
function containsitsonlytwodigfactors(n)
s = string(n)
return !isprime(n) && all(t -> length(t) > 1 && contains(s, t), map(x -> string(x), collect(keys(factor(n)))))
end
 
4,102

edits