OFFSET
0,3
COMMENTS
No two consecutive base 4 digits are the same. - Harvey P. Dale, Nov 24 2018
FORMULA
A031942 UNION {0}. [From R. J. Mathar, Oct 20 2008]
MATHEMATICA
Select[Range[0, 120], SequenceCount[IntegerDigits[#, 4], {x_, x_}]==0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 24 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved