[go: up one dir, main page]

login
A050753
Sixth powers containing no pair of consecutive equal digits.
2
0, 1, 64, 729, 4096, 15625, 2985984, 4826809, 7529536, 24137569, 387420489, 481890304, 1073741824, 1291467969, 1838265625, 2565726409, 3010936384, 3518743761, 4750104241, 6321363049, 7256313856, 8303765625, 9474296896
OFFSET
0,3
LINKS
MATHEMATICA
Select[Range[0, 50]^6, SequenceCount[IntegerDigits[#], {x_, x_}]==0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 03 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved