A050736 Numbers of form 6^k (values of k see A050727) containing no pair of consecutive equal digits (probably finite).
1, 6, 36, 216, 1296, 1679616, 362797056, 13060694016, 78364164096, 470184984576, 170581728179578208256
Offset: 0
Programs
-
Mathematica
Select[6^Range[0,26],FreeQ[Differences[IntegerDigits[#]],0]&] (* Harvey P. Dale, Jul 23 2018 *)