login
A171782
Binary expansion of numbers in A171781.
2
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
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
Sequence in context: A108779 A288336 A288805 * A038313 A066330 A361336
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 12 2010
STATUS
approved