A171782 Binary expansion of numbers in A171781.

10, 11, 100, 111, 1000, 1010, 1101, 1111, 10000, 10010, 10100, 10110, 11001, 11011, 11101, 11111, 100000, 100010, 100100, 100110, 101000, 101010, 101100, 101110, 110001, 110011, 110101, 110111, 111001, 111011, 111101, 111111, 1000000, 1000010, 1000100, 1000110

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, A171781.

Programs

Mathematica

bin[n_] := FromDigits[IntegerDigits[n, 2]]; bin /@ Select[Range[2, 70], (d = IntegerDigits[#, 2])[[2]] == d[[-1]] &] (* Amiram Eldar, Sep 01 2020 *)

Formula

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