|
%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.
|
