A050756 Ninth powers containing no pair of consecutive equal digits.

0, 1, 512, 19683, 1953125, 40353607, 387420489, 2357947691, 5159780352, 68719476736, 198359290368, 3814697265625, 5429503678976, 14507145975869, 165216101262848, 327381934393961, 618121839509504, 18014398509481984

Offset: 0

Author

Patrick De Geest, Sep 15 1999

Keywords

• nonn
• base

Crossrefs

Cf. A043096, A001017, A050748.

Programs

Mathematica

Select[Range[0,90]^9,FreeQ[Differences[IntegerDigits[#]],0]&] (* Harvey P. Dale, Dec 27 2011 *)