|
%I #13 Aug 24 2019 12:09:33
%S 1,4,27,256,3125,823543,387420489,437893890380859375,
%T 39346408075296537575424
%N Numbers of form k^k (for values of k see A050763) containing no pair of consecutive equal digits (probably finite).
%t Select[Table[k^k,{k,20}],FreeQ[Differences[IntegerDigits[#]],0]&] (* _Harvey P. Dale_, Aug 23 2019 *)
%Y Cf. A043096, A000312, A050763, A049329.
%K nonn,base
%O 1,2
%A _Patrick De Geest_, Sep 15 1999
%E Since this is a list, it has offset 1 and does not contain any repeated terms. - _N. J. A. Sloane_, Aug 24 2019
|
