login
A353729
Numbers with property that if any digit is deleted then the result is divisible by that digit.
3
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
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
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, May 14 2022, following a suggestion from Anant Pratap Singh.
STATUS
approved