OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
bin[n_] := FromDigits[IntegerDigits[n, 2]]; bin /@ Select[Range[2, 70], (d = IntegerDigits[#, 2])[[2]] == d[[-1]] &] (* Amiram Eldar, Sep 01 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 12 2010
STATUS
approved