A350572 Base-10 version of A038102 interpreted as base 2.

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

Author

Robert G. Wilson v, Jun 30 2014; entered by Hans Havermann, Jan 06 2022

Keywords

• nonn
• base

Links

• Hans Havermann, Table of n, a(n) for n = 1..1512 (terms 1..1167 from Robert G. Wilson v).

Crossrefs

Cf. A038102, A350573.

Programs

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 *)

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