OFFSET
1,2
COMMENTS
EXAMPLE
Number 24 is in sequence because smallest digit of all divisors of 24 (1, 2, 4, 8, 3, 6, 12, 24) is 1.
MAPLE
isA209931 := proc(n)
digsdiv := {} ;
for d in numtheory[divisors](n) do
dgs := convert(convert(d, base, 10), set) ;
digsdiv := digsdiv union dgs ;
end do:
if 0 in digsdiv then
false;
else
true ;
end if;
end proc:
A209931 := proc(n)
option remember;
if n =1 then
1;
else
for a from procname(n-1)+1 do
if isA209931(a) then
return a;
end if;
end do;
end if;
end proc:
seq(A209931(n), n=1..120) ; # R. J. Mathar, Dec 28 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 20 2012
STATUS
approved