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,1

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A007088, A171781.

Sequence in context: A108779 A288336 A288805 * A038313 A066330 A361336

Adjacent sequences: A171779 A171780 A171781 * A171783 A171784 A171785

Keyword

nonn,base

Author

N. J. A. Sloane, Oct 12 2010

Status

approved