%I #9 Jun 03 2021 13:44:13
%S 0,1,64,729,4096,15625,2985984,4826809,7529536,24137569,387420489,
%T 481890304,1073741824,1291467969,1838265625,2565726409,3010936384,
%U 3518743761,4750104241,6321363049,7256313856,8303765625,9474296896
%N Sixth powers containing no pair of consecutive equal digits.
%H Harvey P. Dale, <a href="/A050753/b050753.txt">Table of n, a(n) for n = 0..1000</a>
%t Select[Range[0,50]^6,SequenceCount[IntegerDigits[#],{x_,x_}]==0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 03 2021 *)
%Y Cf. A043096, A001014, A050745.
%K nonn,base
%O 0,3
%A _Patrick De Geest_, Sep 15 1999
|