A050735 Numbers of form 5^k (values of k see A050726) containing no pair of consecutive equal digits (probably finite).
1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 6103515625, 30517578125, 152587890625, 762939453125, 3814697265625, 19073486328125, 95367431640625, 476837158203125, 2384185791015625, 7450580596923828125
Offset: 0
Programs
-
Mathematica
Select[5^Range[0,100],FreeQ[Differences[IntegerDigits[#]],0]&] (* Harvey P. Dale, Feb 11 2025 *)
Comments