A353729 Numbers with property that if any digit is deleted then the result is divisible by that digit.

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99, 111, 122, 124, 126, 142, 155, 162, 168, 186, 222, 244, 248, 284, 324, 333, 342, 366, 444, 488, 555, 648, 666, 684, 728, 742, 777, 888, 999, 1111, 1113, 1122, 1124, 1128, 1131, 1142, 1146, 1155

Offset

1,2

Comments

Subsequence of A052382. - Chai Wah Wu, May 14 2022

Links

Paolo Xausa, Table of n, a(n) for n = 1..5000

Example

728 is a term, since 7 divides 28, 2 divides 78 and 8 divides 72.

Mathematica

A353729Q[n_] := Block[{d = IntegerDigits[n], i=0}, FreeQ[d, 0] && (While[++i <= Length[d] && Divisible[FromDigits[Drop[d, {i}]], d[[i]]]]; i > Length[d])];
Select[Range[2000], A353729Q] (* Paolo Xausa, Feb 27 2024 *)

Prog

(Python)
from itertools import count, islice
def A353729_gen(startvalue=1): # generator of terms >= startvalue
    for n in count(max(startvalue, 1)):
        s = str(n)
        if not ('0' in s or any(int('0'+s[:i]+s[i+1:]) % int(s[i]) for i in range(len(s)))):
            yield n
A353729_list = list(islice(A353729_gen(), 30)) # Chai Wah Wu, May 14 2022

Crossrefs

Cf. A052382.

Sequence in context: A193408 A368944 A346217 * A227001 A248954 A082937

Adjacent sequences: A353726 A353727 A353728 * A353730 A353731 A353732

Keyword

nonn,base

Author

N. J. A. Sloane, May 14 2022, following a suggestion from Anant Pratap Singh.

Status

approved