OFFSET
1,2
EXAMPLE
Let us consider n = 342: 3 converted to base 2 is 11, 4 is 100, 2 is 10. Their concatenation is 1110010 that converted to base 10 is 114. So A080719(342) = 114. Finally 114 divides 342, so 342 is a member.
MAPLE
P:=proc(q) local a, b, k, n, x; for n from 1 to q do x:=[]; a:=n;
for k from 1 to length(n) do b:=convert((a mod 10), base, 2);
if b=[] then x:=[op(x), 0]; else x:=[op(x), op(b)]; fi; a:=trunc(a/10); od; a:=0;
for k from 1 to nops(x) do a:=2*a+x[-k]; od; if frac(n/a)=0 then print(n);
fi; od; end: P(2000);
MATHEMATICA
Select[Range[2000], Divisible[#, FromDigits[Flatten[IntegerDigits[#, 2]&/@ IntegerDigits[ #]], 2]]&] (* Harvey P. Dale, Mar 13 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Mar 05 2015
EXTENSIONS
Corrected and extended by Harvey P. Dale, Mar 13 2019
Corrected Maple code by Paolo P. Lava, Apr 01 2019
STATUS
approved