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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, May 14 2022, following a suggestion from Anant Pratap Singh.
STATUS
approved