OFFSET
1,2
MATHEMATICA
Array[If[Mod[#2, #1] == 0, #2/#1, Nothing] & @@ {#, FromDigits[IntegerDigits[#, 2]]} &, 10^3] (* Michael De Vlieger, Oct 06 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Apr 15 1998
EXTENSIONS
Offset 1 from Michael De Vlieger, Oct 06 2019
STATUS
approved
