OFFSET
0,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
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