%I #10 Jul 28 2021 04:18:21
%S 0,1,2,3,4,8,10,11,12,13,15,17,19,20,22,24,26,31,33,34,35,39,40,42,46,
%T 52,54,58,59,71,72,80,82,91,92,93,95,100,104,110,120,124,131,135,137,
%U 150,152,169,172,173,174,175,179,200,202,211,220,240,258,259
%N Numbers k such that k^3 has property that all even digits occur together and all odd digits occur together.
%t Select[Range[0,300],Length[Split[If[OddQ[#],1,0]&/@IntegerDigits[ #^3]]]<3&] (* _Harvey P. Dale_, Mar 27 2016 *)
%K nonn,base
%O 1,3
%A _Patrick De Geest_
|