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
Links
- Hans Havermann, Table of n, a(n) for n = 1..1512 (terms 1..1167 from Robert G. Wilson v).
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
Comments