OFFSET
1,2
LINKS
EXAMPLE
3^3 = 11(0)11_2, 43^3 = 10011011(0)10010011_2, 117^3 = 1100001110(0)0001001101_2.
MATHEMATICA
a[n_]:=Part[IntegerDigits[n, 2], (Length[IntegerDigits[n, 2]] + 1)/2];
Select[Range[0, 203], OddQ[Length[IntegerDigits[#^3, 2]]] && a[#^3]==0 &] (* Indranil Ghosh, Mar 06 2017 *)
md0Q[n_]:=Module[{idn2=IntegerDigits[n^3, 2], len}, len=Length[idn2]; OddQ[ len] &&idn2[[(len+1)/2]]==0]; Select[Range[0, 250], md0Q] (* Harvey P. Dale, Dec 15 2019 *)
PROG
(PARI) isok(k) = my(d=digits(k^3, 2)); (#d%2 == 1) && (d[#d\2 +1] == 0);
for(k=0, 203, if(k==0 || isok(k)==1, print1(k, ", "))); \\ Indranil Ghosh, Mar 06 2017
(Python)
i=0
j=1
while i<=203:
....n=str(bin(i**3)[2:])
....l=len(n)
....if l%2==1 and n[(l-1)/2]=="0":
........print (str(i))+", ",
........j+=1
....i+=1 # Indranil Ghosh, Mar 06 2017
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Lars Blomberg, Jan 12 2017
STATUS
approved