%I #14 Jul 05 2023 17:40:39
%S 0,1,2,3,5,6,7,9,13,14,15,16,19,22,23,25,27,33,34,37,45,48,52,58,59,
%T 64,71,77,85,91,94,101,104,106,107,112,116,119,121,126,128,132,133,
%U 138,147,151,162,173,182,184,186,195,211,228,232,244,245,269,271,279,292
%N Numbers k such that the decimal expansion of k^8 contains no pair of consecutive equal digits.
%H Harvey P. Dale, <a href="/A050747/b050747.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[0,300],FreeQ[Differences[IntegerDigits[#^8]],0]&] (* _Harvey P. Dale_, Jul 05 2023 *)
%Y Cf. A050755.
%K nonn,base
%O 1,3
%A _Patrick De Geest_, Sep 15 1999