A050764 Numbers of form k^k (for values of k see A050763) containing no pair of consecutive equal digits (probably finite).
1, 4, 27, 256, 3125, 823543, 387420489, 437893890380859375, 39346408075296537575424
Offset: 1
Programs
-
Mathematica
Select[Table[k^k,{k,20}],FreeQ[Differences[IntegerDigits[#]],0]&] (* Harvey P. Dale, Aug 23 2019 *)
Extensions
Since this is a list, it has offset 1 and does not contain any repeated terms. - N. J. A. Sloane, Aug 24 2019