OFFSET
1,2
MAPLE
isA175262 := proc(n) local dgs ; dgs := convert(n, base, 2) ; if type(nops(dgs), 'odd') then return ( op( (nops(dgs)+1)/2 , dgs) = 1 ) ; else false ; end if; end proc: for n from 1 to 400 do if isA175262(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Mar 29 2010
MATHEMATICA
ondQ[n_]:=Module[{id=IntegerDigits[n, 2], len}, len=Length[id]; OddQ[len] && id[[(len+1)/2]]==1]; Select[Range[300], ondQ] (* Harvey P. Dale, Apr 01 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Mar 16 2010
EXTENSIONS
More terms from R. J. Mathar, Mar 29 2010
STATUS
approved