A353729 - OEIS

%I #16 Feb 27 2024 09:41:16

%S 1,2,3,4,5,6,7,8,9,11,22,33,44,55,66,77,88,99,111,122,124,126,142,155,

%T 162,168,186,222,244,248,284,324,333,342,366,444,488,555,648,666,684,

%U 728,742,777,888,999,1111,1113,1122,1124,1128,1131,1142,1146,1155

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

%C Subsequence of A052382. - _Chai Wah Wu_, May 14 2022

%H Paolo Xausa, <a href="/A353729/b353729.txt">Table of n, a(n) for n = 1..5000</a>

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

%t 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])];

%t Select[Range[2000], A353729Q] (* _Paolo Xausa_, Feb 27 2024 *)

%o (Python)

%o from itertools import count, islice

%o def A353729_gen(startvalue=1): # generator of terms >= startvalue

%o     for n in count(max(startvalue,1)):

%o         s = str(n)

%o         if not ('0' in s or any(int('0'+s[:i]+s[i+1:]) % int(s[i]) for i in range(len(s)))):

%o             yield n

%o A353729_list = list(islice(A353729_gen(),30)) # _Chai Wah Wu_, May 14 2022

%Y Cf. A052382.

%K nonn,base

%O 1,2

%A _N. J. A. Sloane_, May 14 2022, following a suggestion from Anant Pratap Singh.