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,1

Links

Table of n, a(n) for n=1..61.

Wikipedia, Table of divisors

Example

52 is in the sequence since it shares at least one digit with 26, its largest proper divisor. Both numbers share the digit 2.

Mathematica

Select[Range[2, 150], Length[Intersection[IntegerDigits[#], IntegerDigits[#/FactorInteger[ #][[1, 1]]]]] > 0 &] (* Amiram Eldar, Oct 30 2022 *)

Prog

(PARI) isok(m) = (m>1) && #setintersect(Set(digits(m)), Set(digits(m/factor(m)[1, 1]))); \\ Michel Marcus, Oct 30 2022

Crossrefs

Cf. A032742, A357929.

Sequence in context: A048596 A228709 A358270 * A292513 A171491 A277268

Adjacent sequences: A358073 A358074 A358075 * A358077 A358078 A358079

Keyword

nonn,base

Author

Wesley Ivan Hurt, Oct 29 2022

Status

approved