login
A350572
Base-10 version of A038102 interpreted as base 2.
3
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 12, 13, 16, 17, 19, 20, 21, 23, 24, 25, 28, 29, 32, 33, 40, 42, 44, 45, 47, 48, 49, 53, 60, 61, 64, 65, 66, 80, 81, 82, 90, 91, 96, 97, 100, 112, 113, 121, 128, 129, 137, 144, 145, 152, 161, 192, 193, 203
OFFSET
1,3
LINKS
Hans Havermann, Table of n, a(n) for n = 1..1512 (terms 1..1167 from Robert G. Wilson v).
MATHEMATICA
B2[n_] := FromDigits[IntegerDigits[n, 2]]
SP[n_] := (b = B2[n]; StringPosition[ToString[B2[b]], ToString[b]])
n=0; t={}; While[n<10^6, If[SP[n]!={}, AppendTo[t, n]]; n++]; t
(* Hans Havermann, Jan 06 2022 *)
PROG
(Python)
def ok(n): b = bin(n)[2:]; return b in bin(int(b))
print([k for k in range(204) if ok(k)]) # Michael S. Branicky, Jan 06 2022
CROSSREFS
Sequence in context: A350046 A087087 A050742 * A290387 A342950 A238985
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jun 30 2014; entered by Hans Havermann, Jan 06 2022
STATUS
approved