login
A050756
Ninth powers containing no pair of consecutive equal digits.
1
0, 1, 512, 19683, 1953125, 40353607, 387420489, 2357947691, 5159780352, 68719476736, 198359290368, 3814697265625, 5429503678976, 14507145975869, 165216101262848, 327381934393961, 618121839509504, 18014398509481984
OFFSET
0,3
MATHEMATICA
Select[Range[0, 90]^9, FreeQ[Differences[IntegerDigits[#]], 0]&] (* Harvey P. Dale, Dec 27 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved