A358076 Numbers that share at least 1 (decimal) digit with their largest proper divisor.
11, 13, 15, 17, 19, 20, 24, 25, 31, 39, 40, 41, 42, 45, 48, 50, 51, 52, 60, 61, 71, 74, 75, 80, 84, 91, 93, 94, 95, 98, 100, 101, 102, 103, 105, 107, 109, 113, 119, 120, 121, 122, 123, 124, 125, 126, 127, 131, 133, 135, 136, 137, 139, 140, 141, 142, 143, 147, 148, 149, 150
Offset: 1
Examples
52 is in the sequence since it shares at least one digit with 26, its largest proper divisor. Both numbers share the digit 2.
Links
- Wikipedia, Table of divisors
Programs
-
Mathematica
Select[Range[2, 150], Length[Intersection[IntegerDigits[#], IntegerDigits[#/FactorInteger[ #][[1, 1]]]]] > 0 &] (* Amiram Eldar, Oct 30 2022 *)
-
PARI
isok(m) = (m>1) && #setintersect(Set(digits(m)), Set(digits(m/factor(m)[1, 1]))); \\ Michel Marcus, Oct 30 2022