|
|
A171758
|
|
Binary expansion of numbers in A171757.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
bin[n_] := FromDigits[IntegerDigits[n, 2]]; bin /@ Select[Range[2, 100, 2], IntegerDigits[#, 2][[1 ;; 2]] == {1, 0} &] (* Amiram Eldar, Sep 01 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|