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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jun 30 2014; entered by Hans Havermann, Jan 06 2022
STATUS
approved