A050748 Numbers k such that the decimal expansion of k^9 contains no pair of consecutive equal digits.
0, 1, 2, 3, 5, 7, 9, 11, 12, 16, 18, 25, 26, 29, 38, 41, 44, 64, 67, 75, 76, 78, 85, 89, 95, 97, 101, 107, 116, 125, 134, 135, 138, 139, 149, 176, 185, 205, 215, 221, 241, 262, 268, 272, 301, 315, 324, 325, 327, 336, 343, 344, 351, 352, 355, 357, 374, 382, 386
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A050756.
Programs
-
Mathematica
Select[Range[0,400],FreeQ[Differences[IntegerDigits[#^9]],0]&] (* Harvey P. Dale, Aug 21 2024 *)