A032534 Quotient of 'base-2' division described in A032533.

1, 5, 25, 125, 101, 625, 505, 481, 3125, 2525, 2405, 15625, 12625, 12025, 11001, 78125, 63125, 60125, 55005, 390625, 366337, 315625, 300625, 275025, 1953125, 1831685, 1578125, 1503125, 1375125, 1111101, 9765625, 9158425, 7890625

Offset: 1

Author

Patrick De Geest, Apr 15 1998

Keywords

• nonn

Crossrefs

Cf. A032532, A032533.

Programs

Mathematica

Array[If[Mod[#2, #1] == 0, #2/#1, Nothing] & @@ {#, FromDigits[IntegerDigits[#, 2]]} &, 10^3] (* Michael De Vlieger, Oct 06 2019 *)

Extensions

Offset 1 from Michael De Vlieger, Oct 06 2019