|
%I #8 Oct 16 2019 23:45:18
%S 0,1,8,27,64,125,216,343,512,729,1728,2197,4096,4913,5832,6859,9261,
%T 10648,12167,13824,15625,17576,19683,21952,24389,29791,32768,35937,
%U 39304,42875,50653,54872,59319,68921,79507,85184,103823,132651,140608
%N Cubes containing no pair of consecutive equal digits.
%t Select[Range[0,60]^3,And@@(First[#]!=Last[#]&/@Partition[IntegerDigits[#],2,1])&] (* _Harvey P. Dale_, Feb 08 2011 *)
%Y Cf. A043096, A000578, A050742.
%K nonn,base
%O 0,3
%A _Patrick De Geest_, Sep 15 1999
|
