|
%I #7 Dec 31 2020 15:02:18
%S 0,1,32,243,1024,3125,16807,32768,59049,161051,371293,537824,759375,
%T 1048576,1419857,4084101,5153632,6436343,7962624,9765625,14348907,
%U 17210368,28629151,39135393,45435424,52521875,69343957,79235168
%N Fifth powers containing no pair of consecutive equal digits.
%t Select[Range[0,50]^5,FreeQ[Differences[IntegerDigits[#]],0]&] (* _Harvey P. Dale_, Dec 31 2020 *)
%Y Cf. A043096, A000584, A050744.
%K nonn,base
%O 0,3
%A _Patrick De Geest_, Sep 15 1999
|
