A171758 Binary expansion of numbers in A171757.

10, 100, 1000, 1010, 10000, 10010, 10100, 10110, 100000, 100010, 100100, 100110, 101000, 101010, 101100, 101110, 1000000, 1000010, 1000100, 1000110, 1001000, 1001010, 1001100, 1001110, 1010000, 1010010, 1010100, 1010110, 1011000, 1011010, 1011100, 1011110

Offset: 1

Author

N. J. A. Sloane, Oct 12 2010

Keywords

• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007088, A171757.

Programs

Mathematica

bin[n_] := FromDigits[IntegerDigits[n, 2]]; bin /@ Select[Range[2, 100, 2], IntegerDigits[#, 2][[1 ;; 2]] == {1, 0} &] (* Amiram Eldar, Sep 01 2020 *)

Formula

a(n) = A007088(A171757(n)). - Amiram Eldar, Sep 01 2020