login
A255734
Numbers n such that A080719(n) divides n.
0
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 20, 30, 40, 50, 60, 70, 80, 90, 100, 105, 112, 120, 200, 210, 220, 240, 300, 330, 342, 360, 400, 408, 453, 462, 500, 504, 573, 600, 700, 720, 800, 900, 924, 1000, 1008, 1010, 1012, 1020, 1040, 1050, 1116, 1120, 1145, 1200, 1320, 1750, 1900, 2000
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
Sequence in context: A342650 A328273 A342262 * A357142 A376300 A033075
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